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A Program  for  Computing  Steady  Invlscid  Three-Dimensional  Supersonic  Flow 
on  Reentry  Vehicles,  Vol.  I:  Analysis  and  Programming 


This  report  describes  the  analytical,  and  computational  aspects  of  a 
computer  program  for  predicting  inviscid  flow  fields  and  aerodynamics  on 
realistic  reentry  configurations.  This  work  was  performed  by  members  of 
the  Mathematical  and  Engineering  Analysis  Branch  of  NSWC/WOL,  The  initial 
code  development  was  supported  by  the  Naval  Sea  Systems  Command  under  the 
Aeroballistlc  Reentry  Technology  (ART)  program  with  some  of  the  fundamental 
analytical  and  numerical  work  supported  by  NSWC  Independent  Research  Funds. 
Most  of  the  final  code  development  and  documentation  was  supported  by  the 
Air  Force  Space  and  Missile  System  Organization  under  the  technical  manage- 
ment of  the  Aerospace  Corporation. 

The  authors  gratefully  acknowledge  the  efforts  of  Mr.  R.  Feldhuhn,  NSWC 
coordinator  for  the  ART  program,  who  was  responsible  for  initiating  the 
present  work  and  whose  continued  Interest  and  support  throughout  the 
investigation  was  Invaluable.  The  authors  are  also  indebted  to  Mr.  M.  Lyons 
and  Dr.  E.  Ndefo  of  the  Aerospace  Corporation  for  several  stimulating 
technical  discussions  which  lead  to  important  improvements  in  the  final  code. 
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0.  INTRODUCTION 

An  Important  aspect  of  the  design  and  evaluation  of  maneuverable 
and  advanced  ballistic  reentry  vehicles  is  the  determination  of  the 
Inviscid  flow  field  surrounding  the  body.  The  inviscld  flow  field 
provides  surface  pressure  distributions  required  for  determining  the 
aerodynamic  loading  on  the  vehicle  and  other  surface  information  which 
is  needed  as  input  for  determining  surface  heat  transfer  rates  and  other 
boundary  layer  effects.  A cost  effective  method  for  obtaining  this 
information  is  to  use  high-speed  computer  codes  which  numerically  solve 
the  steady,  three-dimensional,  inviscid  flow  equations  associated  with 
arbitrary  shaped  reentry  vehicles  flying  at  supersonic/hypersonic  speeds. 

The  numerical  calculation  of  the  inviscid  flow  field  over  reentry 
vehicles  is  divided  into  two  parts — the  blunt  body  region  calculation 
and  the  supersonic  region  calculation  (see  Fig.  1).  The  blunt  body 
( region  calculation  determines  the  transonic  flow  field  near  the  stagnation 

point.  The  supersonic  region  calculation  determines  the  flow  field 
downstream  of  the  blunt  body  region.  The  differing  nature  of  the  flow 
in  these  two  regions  requires  significantly  different  computer  codes 
for  calculating  each  region.  The  blunt  body  region  is  computed  first 
^ and  is  continued  downstream  until  supersonic  flow  is  established  everywhere 

• in  the  shock  layer.  The  computed  results  from  this  calculation  are  used 

' to  establish  an  "initial"  data  plane  which  is  used  to  start  the  supersonic 

i region  calculation.  This  latter  portion  represents  the  maiority  of  the 

total  flow  field  on  maneuverable  and  high  performance  ballistic  reentry 
vehicles. 
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Fig.  1.  Computational  regions  and  cylindrical  coordinate  system  for 
reentry  vehicle  inviscid  flow  calculations.  ^ 
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In  this  report,  a computer  code  for  performing  the  supersonic  region 
calculation  is  described.  This  code  is  based  on  the  conservation  law 
form  of  the  steady,  inviscid  equations.  Codes  of  this  type  are  sometimes 
referred  to  as  shock  capturing  techniques  since  interna]  (embedded) 
shock  waves  in  the  flow  field  are  computed  in  an  approximate  manner  without 
explicitly  locating  (or  tracking)  the  shock  surface.  The  present  code 
Incorporates  improved  numerical  methods  at  the  body  surface  and  the  bow 
shock  wave  which  yield  a wider  applicability  to  missile  design  than 
existing  codes  of  this  t3rpe  (e.g.  ref.  1). 

This  report  is  divided  into  two  parts.  In  Part  I,  the  partial 
differential  equations,  boundary  conditions,  and  finite  difference 
equations  which  are  the  basis  of  the  computer  code  are  discussed.  In 
Part  II,  the  fcrtran  computer  code  is  described.  A companion  report*, 
the  Users'  Manual,  contains  detailed  Instructions  for  running  the  code 
on  CDC  6000  series  and  7600  machines  and  for  Interpreting  the  output 
results. 
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*Solomon,  J.  M. , Clment,  M.,  Ferguson,  R.  E. , Bell,  J.  B.,  and  Wardlaw,  A.  B. , 
A Program  for  Computing  Steady  Inviscid  Three-Dimensional  Supersonic  Flow 
on  Reentry  Vehicles  - Vol.  lit  User's  Manual,  NSWC/WOL  TR  77-32 
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PART  I:  ANALYSIS 
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NOTATION  (PART  I) 


lOls 


b(:l),2) 


c(<p,z) 


h 


f(X,Y,Z) 


sound  speed 

body  geometry  parameters;  see,  (3.16a)  and  (3.16b) 

see  (3.3d) 
see  (3. 9c) 

reference  area  for  force  and  moment  coefficients 
nondlmenslonallzed  by  R^  (see  Fig.  7) 

see  (A-5a) 

characteristic  matrix  (Appendix  A) 


body  shape  function 
see  (3.3d) 


see  (A-5b) 


shock  shape  function 

see  Fig.  7 
see  (3.9c) 

step  size  factor,  see  (3.25) 
see  (3.22) 

unit  vectors  in  z,r,<J)  directions,  respectively 

see  Fig.  4 and  (4.3) 

see  (3.3e) 

see  (3.3c) 

see  (2.1b) 

clustering  transformation,  see  (3.2) 
see  (3.3a) 

aerodynamic  force  components, 
see  Fig.  7 and  (5.1)  - (5.3) 

see  (2.1b) 
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clustering  transformation,  see  (3.2) 
see  (3.3b) 
see  (2.1b) 
enthalpy, 

total  enthalpy,  see  (2.2) 
see  (3.8b) 

0 or  1,  determines  scheme,  see  (3.6a)  and  (3.6b) 
step  number 

thermodynamic  derivatives,  see  (3.16)  and  (A-4) 
characteristic  null  vectors,  see  Appendix  A 

denotes  mesh  point  Y = Y , see  (3.4) 

m 

limit  mesh  point  for  wall  entropy  reduction, 
see  Sec.  4.2 

value  o*^  m corresponding  to  Y = 1,  see  Figs.  2 
and  3 

free  stream  Mach  number 

aerodynamic  moment  components  about 
C,  see  Fig.  7 and  (5.4)  - (5.6) 

Mach  number  In  front  of  oblique  shock,  see  (4.9) 

denotes  mesh  point  X = X , see  (3.4) 

n 

normal  vector 

value  of  n corresponding  to  X = 1 (bow  shock) , 
see  Figs.  2 and  3 

matrix,  see  Appendix  A 

pressure 


Gc>  a C H U1  ^ ^ 
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TP 


see  (3.19) 


Q 


(p,u,v,w) 


radial  coordinate,  nondlmenslonallzed  by  R 

o 


nondimenslonallzlng  length 

see  Appendix  A 
see  (3.9c) 
entropy. 


,Tc  ,T  T,  transformation  quantities,  see  (3.3h)  and  (3.31) 

5 ^4  ^6  ^7 


velocity  component  in  r direction 


= (U^,U2,U2>U^)  conservation  vector,  see  (2.1a) 

averaged  values  of  U,  see  (4.11) 
velocity  component  in  <j>  direction 


V 
-> 

V 


V 


velocity  vector 

normal  component  of  velocity 

velocity  component  in  direction 
V + (b  /b)u 

see  (3.17a)  and  (3.17b) 
velocity  component  in  z direction 


x.y 


(x,y,z) 


see  Fig.  1 or  Fig.  7 
see  (3.1) 


(X.Y.Z) 
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coordinates  in  computational  space,  see  Figs.  2 & 3 
see  (3.3g) 
see  (3.3f) 

axial  coordinate  (see  Figs.  1 or  6)  nondlmensionallzed 
by  R 

o 

2 coordinate  of  moment  center  C,  see  Fig.  7 


reference  length  for  moment  coefficients, 
nondlmensionallzed  by  R 


(z  ) 
c.p.  , 


L.  p. 


axial  location  of  initial  plane 
center  of  pressure  in  pitch,  see  (5.9) 

center  of  pressure  in  yaw,  see  (5.10) 


n (t)  , H2  » , h^) 


X,X_,X^ 


angle  of  attack,  see  Fig.  1 

angle  of  side  slip,  see  Fig.  1 
see  (3.9c) 

see  (3.16) 

ratio  of  specific  heats 
effective  gamma,  s$e  (3.7) 

AX/AY  (j  = 0), -AX/AY  (j  = 1) 
computational  mesh  spacing,  AX  = 1/ (N-1) , AY  = 1/ (M-1) 
step  size,  see  (3.25) 
see  (3.17a) 

turning  angle,  see  (4.7) 

see  (4.11) 
see  (3.9c) 

characteristic  values,  see  Appendix  A 

see  (3.16) 
see  (3.9c) 

stability  parameters,  see  Sec.  3.6 
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V 

w 


V 

CD 


p 

->■  -y 


<!> 


Vl  + 

* l)l  z 

\/l  + (c  /c)^  + 

^ ip  z 

see  (3.16a) 

density 
see  Fig.  4 
azimuthal  angle 

7T  for  the  symmetric  problem;  2it  for  the  nonsymmetric 
problem 

see  (3.8c) 


Subscripts 

n,m 

s 

w 


+ 


quantity  evaluated  atX=X  ,Y=Y 

n m 

quantity  evaluated  at  bow  shock  wave 
quantity  evaluated  at  wall 

quantities  at  upstream  and  downstream  side  of  body 
slope  discontinuity  in  section  4.1  only 


Superscripts 

k quantity  at  step  Z = Z 

* predicted  value  (except  in  Appendix  A) 


Other 


A dependent  variable  used  as  a subscript  denotes  partial  differentiation 
with  respect  to  that  variable;  e.g.,  if  b = b(i)),z)  then 


|q|  denotes  the  absolute  value  of  q if  q is  a scalar  and  the  modulus  (or 
magnitude)  of  q if  q is  a vector. 

• and  X denote  vector  inner  product  and  cross  products,  respectively. 
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2.  GOVERNING  EQUATIONS  AND  BOUNDARY  CONDITIONS 
2. 1 Steady  Flow  Equations 

Consider  a body  oriented  cylindrical  coordinate  system  r,ij),z 
Illustrated  in  Figure  1.  With  respect  to  these  coordinates,  the 
conservation  of  mass  and  momentum  equations  for  a steady,  invlscld, 
flow  can  be  written  as  a system  of  (weak)  conservation  laws;  i.e., 

dz  dr  o<p 


where 


/^1\  pw  . 

U=/U„\=/  ^ 2\ 

I 21  fp  + pwl 

\ ^3  / I pwu  J 
U.  ' _ ' 


(2.1) 


(2.1a) 


\ p + pu^y 


p + pv 


)pu 
. = 7 / puw 


(2.1b) 


In  the  above,  p denotes  pressure  and  p denotes  density  and  u,v,w  are 
the  velocity  components  in  the  r,<)>,z  directions,  respectively.  The 
energy  equation  for  a steady  inviscld  flow  with  an  isoenergetic  free 
stream  can  be  reduced  to  an  algebraic  equation;  viz. 

h + i(uV4v^)  = = h^  + |(uf+vV).  (2.2) 

Here  h is  the  enthalpy  and  Is  the  total  energy  in  the  free  stream  (which 

is  constant).  In  the  above  equations  and  throughout  our  discussion,  all 
lengths  are  non-dlmenslonallzed  by  R^,  some  body  length;  all  other  quantities 
are  dimensional.* 

*It  is  understood  that  the  dimensions  are  consistent,  i.e.,  velocity  has 
dimensions  of  (pressure/denslty)^  and  enthalpy  has  dimensions  of 
pressure/ density . 
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The  flow  is  assumed  to  be  in  local  thermodynamic  equilibrium  (or 
frozen-equilibrium)  so  that  known  relationships  exist  between  the  themo- 
dynamic  variables,  p,  p,  and  h.  Two  other  thermodynamic  variables  will 
be  Introduced  later;  viz.,  the  sound  speed,  a,  and  the  entropy,  s.  We 
assume  the  standard  form  of  the  thermodynamic  relations  which  expresses 
h,  p,  and  a as  functions  of  p and  s.  In  addition,  we  assume  that  s can 
be  expressed  as  a function  of  p and  h and  also  as  a function  of  p and  p. 
The  computational  algorithm  which  will  be  described  in  the  next  section 
specifically  requires  that  h = h(p,p),  a = a(p,p)  and,  at  certain  points, 
p = p(p,s) — these  relations  being  given  either  in  closed  form  or  as 


curve  fits.  Note  that  the  sound  speed  can  be  defined  in  terms  of  h(p,p)  by 

a^(|^)  + (|^i)  = . (2.3) 

'3p''p  ^3p  p p 


For  the  special  case  of  a perfect  gas*  with  ratio  of  specific  heats,  y, 


we  have 


= [perf] 


p/p^  = exp  flog  (p/p„)  - (s  - s^)/c^)},  [perf] 
where  c is  the  specific  heat  at  constant  volume. 

V 


*The  term  perfect  gas  used  herein  refers  to  a gas  satisfying  the  perfect 
gas  law  (thermodynamically  perfect)  and  having  constant  specific  heats 
(calorically  perfect).  Throughout  this  report  equations  which  are 
valid  only  for  perfect  gases  are  followed  by  [perf]. 
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2 . 2 Boundary  Conditions 

The  shock  layer  Is  bounded  by  the  given  body  surface,  and  the  bow 
shock  wave,  which  is  an  unknown  to  be  determined.  The  body  surface  is 
assumed  to  be  prescribed  in  the  form  r = b((j>,E)  where  the  function  b((}i,z) 
is  continuous  and  piecewise  twice  continuously  differentiable.  On  the 
body  surface,  the  boundary  condition  for  Inviscid  flow  is  that  the  normal 
component  of  velocity  must  vanish,  l.e.. 


u - b w - (b,/b)v  = 0 (2.6) 

z 9 

The  bow  shock  surface  is  assumed  to  be  in  the  form  r = c((j>,z), 

an  unknown  function,  to  be  determined  in  the  calculation.  On  the  bow 

shock  surface  the  Ranklne-Hugonlot  relations  must  hold.  These  relations  are: 

pV  = V , 

n ” n* 

V - nV  = V - nV 
n « n 

2 “2 
P + = P»  ♦ 

h + = h + 

2 n 2 n„ 

00 

In  the  above,  = n*7  is  the  component  of  velocity  normal  to  the  shock 

surface  and,  V = v - nV  where  n is  the  unit  vector  normal  to  the  shock 
t n 


(2.7) 


surface  given  by 


n = — (c  e - e + — e.)  , 
V z z r c ’ 

s^ 

V =Vl  + c ^ + (c./c)^ 

ST  Z <P 


(2.7a) 


where  e , e , and  e,  are  the  unit  vectors  in  the  z,  r,  and  4>  directions, 
z r 9 

respectively.  In  (2.7),  the  subscript  <»  refers  to  the  free  stream  quantities 
(upstream  of  the  shock) ; all  other  quantities  are  values  immediately  behind 
(downstream  of)  the  shock. 
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i.  BASIC  COMPl'TArU)NAl,  Al.CORITHM 

The  regiiin  of  the  shock  Inver  in  wliieh  the  axi.il  veloeitv  i-omponent 
is  supersonic  ( i . e . , w a)  is  referreJ  to  liere  as  the  supersonic  region. 

It  can  be  shown  "hat  in  this  region  tiii’  system  (?.!)  is  of  hyperbolic 
tyi^e  with  the  z axis  as  the  time-like  direct  ii'n.  This  implies  among 
other  things  tliat  the  numerical  solution  of  (2.1),  (2.2)  can  be  obtained 

bv  marching  stepwise  In  the  z direction.  The  procetlure  adopted  here 
enplovs  an  explicit  finite  difference  method  wltlch  advances  (l.e., 
determines)  the  flow  variables  e,P»w,n,v  and  the  bow  shock  geometry 
c,c,,c  to  station  z + Az  using  the  known  quantities  at  station  z. 

The  step  size  Az  is  chosen  to  satisfy  a stability  criterion.*  The  calcula- 
tion begins  at  some  plane  z = z^^  in  the  supersonic  region  where  all  flow 
quantities  and  shock  geometry  are  known.  This  plane  will  be  referred 
to  as  the  initial  plane.  The  calculation  is  continued  downstream  to 
anv  desired  axial  station  (or  until  the  axial  velocity  becomes  sonic.) 
by  repeated  use  of  the  procedure  using  the  previous  z + Az  as  the  next 
known  station. 

2.1  Computational  Region  and  Transformed  Equations 

In  the  following  discussions  two  different  problems  will  be  considered; 
the  s\mirnetr_U  .anti  the  non-.symmetr ic  problems.  In  the  symmetric  problem, 
the  bodv  is  assumed  to  be  symmetric  about  the  pitch  plane  (i.e.,  in  Fig.  1, 
the  bodv  is  symmetric  about  the  x - z plane  and  f = 0).  The  calculation 
for  this  problem  need  only  be  performed  for  0 £ <f  ^ since  the  flow  field  is 
efr  ic  .ibout  (p  = 0 and  p = n (wind  and  lee  sides,  respectively). 


• e Sei’tion  3.6 
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The  planes  <})  = 0 and  c|)  = ti  are  symmetry  boundaries  where  all  variables  are 
even  functions  of  ({>  except  v which  is  an  odd  function  of  i().  In  the 
non-symmetric  problem,  the  body  need  not  be  symmetric  and/or  6 0.  In 

this  problem,  the  calculation  must  be  performed  for  0 ^ 4)  ^ Ztt  ; and  all 
variables  are  periodic  functions  of  <()  with  period  2ti  . 

For  both  problems,  the  shock  layer  for  is  transformed  into  the 

computational  region  Z^z^,  OiXil,  0<:Y£1.  The  transformation  is 
conveniently  expressed  as  a composite  of  two  mappings.  The  first  is 
given  by  the  usual  normalizing  transformations; 
z = z 

x=  [r-b(z,4>)  ]/[c(z,4))-b  (z,4>)  ] (3.1) 


where  is  tt  for  the  symmetric  problem  and  27t  for  the  non-symmetric 
problem.  This  mapping  by  itself  transforms  the  shock  layer  into  the 
region  z>z^,  0<xil,  0iy£l.  The  second  mapping  maps  this  region 
one-to-one  onto  itself.  For  computational  purposes,  it  is  convenient 
to  express  the  second  mapping  in  inverted  form,  i.e., 

z = Z 

X = f(.X,Y,Z)  (3.2) 

y = g(Y,Z) 

where  f(0,Y,Z)  = 0,  f(l,Y,Z)  = 1;  g(0,Z)  = 0,  g(l,Z)  = 1.  The  primary 
purpose  of  the  second  mapping  is  to  cluster  computational  points  in  the 
shock  layer  by  choosing  f and  g appropriately  (see  sec.  4.3  for  a discussion 
of  this  feature).  The  mapping  functions  f(X,Y,Z)  and  g(Y,Z)  must  be 


b-' 


f 
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twice  continuously  differentiable  and  be  given  so  that  the  functions 
and  their  derivatives  up  to  and  Including  the  second  order  are 
accordingly  smoothly  defined.  Apart  from  this  restriction  (and  certain 

ones  which  will  be  Imposed  in  sec  3.5),  the  functions  f(X,Y,Z)  and  g(Y,Z) 
can  be  arbitrary.  When  no  transformation  Is  desired,  then  one  should 
set  f : X and  g = Y. 


The  governing  equations,  (2.1),  when  transformed  to  the  computational 
space  (X,Y,Z)  by  (3.1)  - (3.2)  become 
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In  the  above. 


A=Xw+Xu+  -X. V , B = Y w + -Y^v 
2 r r 4>  z r (t> 


e = p (^  + AT.  + BT  + wT.  + 7 T ) 
4 ®5  6 7 


Y^  - - g^/gy  > 


X^  = l/[f^(c-b) 


% = - %^Y/fx+ 


(3.3d) 

(3.3e) 

(3.3f) 


(3.3g) 


^g.  ^ZY^^Y 

5 6 


(3.3h) 


■ \ • ''♦hx'fx  - V'**'*'-”' 

4 ' 


\ - \ * «zx  ’'z'vx’^'x  - 


(3.31) 


Note  that  in  the  above,  the  body  slopes,  b^  and  b^,  are  derived  from  the 
given  body  geometry  function;  the  shock  slopes,  c^  and  c^,  are  unknowns  to 
be  determined  in  the  calculation. 

The  system  of  partial  differential  equations  (3.3)  is  discretized  and 
solved  numerically  in  the  computational  space  using  a mesh  defined  by 


{ (X  ,Y  ):X  = (n-l)AX  (n=l ,2 , • • • ,N) , Y = (m-1) AY (m=l , 2 , • • -M) } (3.4) 

n m n 


where  AX  = 1/(N-1)  and  AY  = 1/(M-1).  In  Figures  2 and  3,  we  depict  typical 
discretized  computational  planes  Z = z = constant  and  the  corresponding 
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(^,ir 


Compu,Vfif^iOi^a\  Plcir\€,  ~ ^ - consi, 

Fig.  2.  Computational  and  corresponding  physical  plane  for  symmetric  problem 
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physical  planes  for  the  symmetric  and  non-symmetric  problems,  respectively. 

As  indicated  in  the  figures,  there  are  four  types  of  points  each  requiring 
differing  numerical  procedures;  interior  points  corresponding  to 
n=2,*"*,N-l;  m=2,**-,M-l;  points  on  the  symmetry  or  periodic  boundary  planes 
Y=0  and  Y=1  (m=l  and  m=M,  respectively);  boundary  points  at  the  bow  shock, 

X=1  (n=N);  boundary  points  at  the  body  surface,  X=0  (n=l) . For  all  points, 
the  solution  is  advanced  using  predictor-corrector  finite  difference  methods, 
i.e.,  the  known  solution  at  Z,  say,  is  used  to  determine  temporary  (i.e., 
predicted)  values  at  Z + AZ;  then  the  predicted  values  are  used  to  determine 
the  final  solution  (i.e.,  corrected)  values  at  Z + AZ. 

In  section  3.2  - 3.5  below, the  particular  method  used  for  each  of 
the  above  four  types  of  points  will  be  described.  We  shall  assume  that  the 
quantities  p,u,v,w,p,c,  c^,  c^  are  known  for  Z = Z on  the  mesh  defined  by 
(3.4).  The  objective  is  to  determine  these  quantities  on  this  mesh  for 
Z = = Z*^  + AZ. 


3.2  Interior  Points 

The  numerical  solution  for  all  interior  points  is  obtained  by 
approximating  the  system  (3.1)  by  the  second-order  accurate  finite  difference 
scheme  of  MacCormack  (ref.  2).  In  the  code,  either  of  two  MacCormack 
schemes  can  be  selected.  These  are  given  by  (j  = 0 or  1); 
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(predictor)  1' 


n,m 


+ A7  (('i'-) 
n,m  i/  n,in 


where 


(3.6a) 


(3U  k 
^3Z'^n,m 


C, 


C. 


pk  _ pk 

_ n+,i  , ni n+j-I  ,ni  _.~'n,nri-l  ~'n,m  _ k 

^ AX  ' AY  ' n,r 


(corrector)  = “[U*^  + U*  + ] 

n , m 2 n , m n , m 3 Z n , m 


where 


311  * 

O ^ = -(- 

dZ  n , m 


- F 


n-j+1,.1) n- 1 ^ n ,m 


- G 


AX 


-)  - (- 


n,m-l 


AY 


(3.6b) 


In  the  above,  = U(z'^,X  ,Y  ).  The  quantities  , G 

n,m  n m ‘ n.m 


n,m 

J 

,k 

T.k 

E 

'n  ,m  ’ 

n ,m 

are  evaluated  from  (3.3a)  - (3.3c)  at  the  point  (Z  ,X  ,Y  ) using  the  known 

n m “ 


quantities  p,u,v,w,p,c,  and  c^  with  c^  given  by  (3.5).  The  quantities 


* k+1 

U are  the  predicted  values  of  U at  (Z  ,X  ,Y  ) from  which  predicted 

n,ni  r»  » m 


n m 


values  of  the  flow  quantities  o,u,v,w,p  can  be  determined  using  the 
definitions  (2.1a),  (2.2),  and  the  thermodynamic  relations.  (This  is 


described  in  the  next  paragraph).  The  quantities  F , G , F are 

^ n,m’  n,m’  n,m 


evaluated  from  (3.3a)  - (3.3c)  at  the  point  (z'^'*’^,X  ,Y  ) using:  the 


n ’ m 


predicted  values  of  p,u,v,w,p,  c c , and  the  corrected  values  of  c. 


The  predictor  and  corrector  procedure  for  c,  c , , c will  be  described 

0 z 


in  the  discussion  of  the  bow  shock  points. 

In  the  above,  the  flow  variables  o,u,v,w,p  must  be  determined  (or 


decoded)  from  the  computed  conservation  variables  after  both 


the  predictor  and  corrector  steps.  For  decoding,  it  is  convenient  to 
introduce  an  effective  gamma  defined  by 


r = 1/(1  - ■>\  ) 

I'll 


(3.7) 
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From  the  definitions  (2,1a),  we  have 


u = U3/U^  . V - U^/U^ 


p = - Uj^w  , p = Uj^/w 


Substitution  of  (3.8a)  Into  (2.2)  yields 

2 2 

12 

h = ^[H  - w],  H =2H  - — . (3.8b) 

2 O O “>  y 2 

Substituting  P and  p given  by  (3.8a),  and  h given  by  (3.8b)  Into  (3.7),  we 
obtain  a quadratic  equation  for  w.  The  root  of  this  equation  corresponding 


to  w > Tp/p  Is 


U2  [r  + 

(r  + 1) 


2 1 2 

= (r  - i)[H  (^)^  - 1] 

o 


In  the  case  of  a perfect  gas,  F = y,  which  Is  known,  and  equations  (3.8c) 
and  (3.8a)  provide  the  desired  decoding  formulas.  For  a more  general 
gas  where  h = h(p,p)  Is  given  as  a curve  fit  to  thermodynamic  data,  F 
Is  not  known  a-prlorl  and  the  decoding  cannot  be  performed  In  closed 
form.  In  this  case  the  decoding  can  be  performed  by  solving  the  nonlinear 


equation 


h(p,p)  - I = 0 


for  w.  In  this  equation  h(p,p)  Is  the  value  of  h obtained  from  the  curve 
fits  with  p and  p defined  by  (3.8a).  In  the  code,  this  equation  is 
solved  Iteratively  using  the  secant  method.  To  start  the  Iteration  in  the 
predictor  cycle,  the  initial  guess  for  w Is  obtained  using  (3.8c)  with 
the  value  of  F from  the  previous  step;  the  second  guess  uses  (3.8c)  with 
the  value  of  F defined  from  (3.7)  which  results  from  the  Initial  trial. 


NSWC/WOL/TR  77-28 


For  the  corrector  cycle,  the  Iteration  Is  started  similarly  except 

the  initial  guess  uses  In  (3.8c)  the  value  of  F defined  In  the  predictor 

step. 

3.3  Bow  Shock  Points 

At  the  bow  shock  boundary,  the  Rankine-Hugoniot  relations  (2.7) 

must  be  satisfied.  These  relations  give  the  flow  variables  at  the  shock 

in  terms  of  the  shock  geometry  c,  c.,  and  c (which  are  unknowns)  and  the 

$ z 

free  stream  quantities.  In  the  present  procedure,  a special  system  of 
equations  for  c,  c.,  and  c Is  numerically  solved  using  a second-order 

9 Z 

accurate  predictor-corrector  method  to  advance  the  shock  geometry.  This 
procedure  differs  from  the  more  common  practice  of  determining  c^  using 
central  differences  of  c (see,  refs  1,3, 6, 7, 8,  and  9). 


( 

k* 


f • 


The  system  of  equations  used  for  advancing  c,  c . , and  c Is  developed 

9 Z 

in  Appendix  A (see,  (A-20)  - (A-22)).  The  resulting  system  is. 


3c.  3c  3c 

2.  X Y — — - Y — ^ 

3Z  (fi  3Y  z 3Y 


(3.9a) 

(3.9b) 


3c  , 

3Z  C,  s 


3c  3c,  c. 

(c  - Y c /Y  )]} 

c <(i3Y  z3Y  c z z ^ ^ 


C2 


(3.9c) 


where 

C,  = { (v  w - c V ) A,  - (p  - P_)[l  + 

1 s®zn„l  ” ifi  s 

^2  = UVg  V„  - (c^/c)V^  ] + Cg(c^/c)(p  - Pj}/Vg 
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+p(v  w - c V )]A  + 8 p (V  -V) 
1 ° “ n s “ z n ^ o ""o  ' n n 


- V )[a^  + (a"^/p)V  (V  - V )] 

J'oo  " n ‘ 1 n n n 


2 2 
V (a  - V ) 
n„  n 


®0  ° a + f“  ' (c  /c)vl^ 


^1  ■ 


,3F  . 3G 


^ ^2’  '^3’  ^4^ 


S"i  = [2  - (]^^/p)V^]\_,  ^2  = - (c^/c)v)  - XJ/w  + X_  w/p 

^3  ” X_  )i;'  u/p  - 1,  = c^/c  + X_/^  ^ v/p  , 


~ a^{BQW  + [u  - (c^/c)v] }/(w^  - a^) 

3K  3G 

In  the  above,  the  quantity  V ("^  + |y  + E)  denotes  the  inner  product  of 
these  vectors.  Note  that  for  a perfect  gas 

= - p/h  [perf]. 

In  the  case  of  a more  general  gas  where  h = h(p,p)  is  given  as  a curve 
fit  to  thermodynamic  data,  is  determined  numerically  using  central 

differences. 

The  quantities  c,  c^,  and  c^  are  advanced  using  predictor-corrector 
methods  in  the  form: 


•i,  . . * ^ ,«  « 
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c*  = + Z 

m m ^ 3Z^N,m 


* ^r  “‘'A  tf 

(c  = (c  + AZ  ^ 

$ m 9 m 3Z  N,m 


(predictor) 


* Ir 

z tn  z m 3Z  N,m 


k+1  1 r k * . /3C\*  1 

c “ T ■*■  c + AZ  (■^)„ 
m 2mm  3Z  N,m 


, .k+1  1 ,k  ^ . V*  . / (t.*  , 

(pm  2 pm  pm  3Z  N,m 


(corrector) 


- ,k+l  1 r/  vk  , , / Zv*  , 

(c  ) = -r  t(c,)„  + + AZ  (■^T^)^  _] 

zm  2 zm  zm  3Z  N,m 


where  In  both  the  predictor  and  corrector  steps  the  derivatives 

22  ' 3^  determined  using  eqs.  (3.9a)  - (3.9c).  In  the 

Jf 

predictor  step,  (3.9a)  - (3.9c)  are  evaluated  at  (Z  , 1 _ Y ) with  the 

' m 


Y-derlvatlves  approximated  by 


( )^  - ( )^ 

^ ^N.nri-1  ^ ^N.m 

^3Y''N,m  AY 

3F 

and  the  X derivative,  — , approximated  by 

k k 

F - F*'^ 

r3F.  k ^ N,m  N-l,m 

Sx^N,m  AX 

Ir 

In  the  corrector  step,  (3.9a)  - (3.9c)  are  evaluated  at  (Z  + AZ,  1 ,Y  ) 

' m 

using  the  predicted  values  of  the  flow  variables  and  shock  geometry 
(corrected  value  of  c,  see  below)  with  the  Y derivatives  approximated  by 


3 * 

{— ) S' 

^3Y^N,m  ^ 


K - ( 

N,m 


N.ra-1 


NSWC/WOL/TR  77-28 


and  — approximated  by 
aX 


F*  F*  F^  — 2 F^  + F^ 

,3Fx*  N,m  N-l,m  N.m  N.m-1  N,m-2 

^aX^N.m  ^ AX  AX 

The  latter  formula  Is  used  to  achieve  second  order  accuracy.  The  corrector 

for  the  shock  shape  c Is  performed  before  the  corrector  for  c,,  and  c • 

* 

This  allows  the  use  of  corrected  values  of  c In  the  evaluation  of  r-^  and 

9 0 L 

c 

In  the  corrector  step  and  also  in  the  Ranklne-Hugonlot  relations. 

After  advancing  c,  c^,  and  c In  the  predictor  (or  corrector),  the 

(J)  Z 

predicted  (or  corrected)  values  of  the  flow  variables  at  X = 1 are 
obtained  from  the  Ranklne-Hugonlot  relations.  These  are  revnrltten  for 
the  purpose  of  the  computation  using  the  effective  gamma  defined  by  (3.7). 


The  result  Is 


— p + p +-t/  (p  - p r)’’  - 

f+1  ^00  ® n w n *^00  ' 


OD  ® Tl  ^ 


2p  V (r-i)(r  -r)' 
00  ^ 00 


u = u + 


J (l  - ^),  w = w -(u-u)c,v  = v -(u-u  )(c  /c) 

\)  \ p/’  on'  od'  z CO  ' CO  ij, 


In  the  above,  V Is  the  free  stream  velocity  component  normal  to  the 

00 

shock  and  free  stream  velocity  components  given  by 

cos6  cosa,  (cos6  slna  sln<t’  - sinB  cosif)  , and  -V^  (cosB  sina  cosifi 
+ slnB  sln<(>)  , respectively.  For  the  case  of  a perfect  gas,  P = “ Y, 


and  (3.12)  give  directly  the  flow  quantities  at  X = 1 since  V is  known 

00 

when  c,  c^,  and  c are  determined.  For  a more  general  gas  where  h = h(p,p) 
p z 
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is  given  as  a curve  fit,  the  Ranklne-Hugonlot  relation  must  be  solved 
numerically.  This  Is  done  by  solving  the  nonlinear  equation 

h(p,p)  - h^  - i (V^  - V^)  = 0 

oo 

for  V . Here  h(p,p)  Is  the  value  of  h from  the  curve  fits  with  p and  p 
n 

defined  using  the  first  and  third  equations  In  (2.7).  This  equation 

Is  solved  Iteratively  using  the  secant  method.  To  start  the  Iteration, 

the  required  two  estimates  of  V are  obtained  using 

n 

V = P„  V /p. 
n “ n 

00 

For  the  first  estimate,  p Is  the  value  obtained  from  (3.12)  with  T the 
previous  value  In  the  predictor  step  and  the  predicted  value  In  the 
corrector  step.  For  the  second  estimate,  the  value  of  F resulting 
from  the  first  estimate  Is  used. 
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3. 4 Body  Surface  Points 

At  the  body  surface,  X = 0 (n  = 1),  the  boundary  condition  (2.6) 
must  be  satisfied.  Our  computational  method  for  the  points  on  X = 0 
utilizes  a special  system  of  equations  which  is  valid  only  on  the  body 
surface.  These  auxiliary  equations  are  developed  in  Appendix  A (see  (A-10), 
(A-11),  and  (A-13)  of  Appendix  A).  Before  giving  the  completely  expanded 
forms  of  these  equations,  we  will  discuss  the  basic  computational  method. 

The  basic  variables  on  X = 0 are  the  natural  log  of  the  pressure, 

P = log  p,  the  quantity  = v + (b^/b)u,  and  the  entropy,  s.  These 
quantities  are  advanced  on  X = 0 using  predictor-corrector  methods  in  the 
form: 


P*  = P*'  + AZ(- 

l,m  "^l,m  > aZ'’l,m 


3V, 


^'^2^i,m  = ^^^2^^m  + } (predictor) 


* J.  A-7/3s,k 

l,m  ° ''’l,m  ^^^3zh,m 


(3.13) 


= ^[P*^  + P*  + AZ(-|^)*  1 

l,m  2 I,m  l,m  p ‘^7/1, m 

^"^2^tm  = ^ ^ > (corrector) 


k+1  1.  k . * . .-/3s,*  , 

S’,  = + s,  + AZ(— ), 

l,m  2 l,m  l,m  9Zl,m 


(3.14) 


where  in  both  the  predictor  and  corrector  steps  the  derivatives 

^ determined  from  eqs.  (A-10),  (A-11),  and  (A-13). 
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(The  completely  expanded  form  of  these  equations  will  be  nresented  below 
in  tins  section).  Alter  both  the  predictor  and  rorrector  steps,  the  flow 
variables  ; ,u,v,w,p  are  determined  as  lollows.  From  the  computed  value 
of  P,  we  (htain  the  pressure;  l.e.,  p = exp(P).  Using  thermodynamic  rela- 
tions, we  ol)tain  (>  and  h from  p and  s.  It  follows  from  (2.2)  that 
2 2 2 2 

V =u+w+v=  2(H^  - h)  and  from  (2.6),  we  have 


w = Vn+(h/H)2]v2-v2  / v^, 

2 "> 

V = 1+b  +(b  /b)“ 

W X (j 


V = [\'  - (b,/b)b  w]/[l  + (b./b)^l, 

2 <F  z (f 


r (3.15) 


u = b w + (b  /b)v 

z <p 


Note,  the  boundary  condition  (2.6)  is  satisfleil  by  both  predicterl  and 
corrected  values  of  the  flow  variables. 

The  above  formulation,  of  identifying  the  variables  P,  V^,  and  s as 
the  variables  to  be  advanced  at  the  boundary,  provides  a form  of  the 
equations  which  allows  one  to  maintain  an  accurate  approximation  through 
regions  where  the  flow  nonuniformity  develops  and  remains  adjacent  to 
the  body  surface  (e.g.  entropy  layers  on  blunted  slender  bodies). 

Other  formulations  which  utilize  finite  differencing  in  the  vicinity  of 
such  flow  non-uniformities  characteristically  are  differencing  nonsmooth 
flow  quantities  and  hence  require  some  loi-.il  modifications  to  maintain 
the  calculation.  However,  our  formulation  allows  one  to  advance  the 
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solution  by  the  differencing  of  only  smooth  quantities.  In  order  to  see 
why  this  is  so,  first  observe  that,  since  such  nonunlformlties  lie  along 
the  body  surface  which  is  a stream  surface,  they  have  the 

character  of  a contact  discontinuity.  It  is  known  (c.f.,  ref.  4,  p.  317-18) 
that  across  such  a discontinuity  only  the  pressure  and  the  normal  component 
of  velocity  can  never  experience  jumps.  Now  consider  the  present  wall 
point  computation.  The  only  X differences  required  are  in  (A-10) , the 
equation  for  pressure.  The  quantities  and  s are  advanced  using  only 
quantities  defined  on  the  wall.  Further,  the  only  quantities  differenced 
in  the  X direction  are  p and  A.  But,  p is  smooth  across  the  nonunlformity 
and  A at  the  wall  is,  except  for  a factor  involving  geometry,  the  normal 
component  of  velocity  which  is  also  smooth  across  the  nonuniformity. 

Hence,  the  wall  point  calculation  remains  well  behaved.  Consider  now  the 
calculation  for  the  adjacent  interior  point,  X = AX.  In  either  the  predictor 
or  corrector  (depending  on  j=0  or  1)  an  X difference  of  F must  be  taken 
across  the  nonuniformity.  But  at  X = 0,  F involves  only  the  pressure  and 
geometry  (since  A = 0 at  the  wall  in  both  the  predictor  and  the  corrector). 
Thus,  in  the  calculation  at  X = AX,  the  X difference  of  F is  unaffected 
by  the  nonuniformity. 

3V 

The  formulas  used  for  determining  and  in  (3.13)  and  (3.14) 

d Z oZ  oZ 

are  (A-10),  (A-11) , and  (A-13) , respectively.  The  actual  formulas  used 

in  the  code  are  obtained  by  expanding  these  equations  using  the  boundary 

condition  (2.6)  and  noting  that  atX=0,  X =-bX  and  X,  = - b.X  . 

z z r V <(>  r 

From  (A-10),  we  obtain 
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where 


+ y +iE,(T^^V^  + b^/b)l 


a (6--b  ) 

X = L-S- 

+ 2 2’ 
w -a 


(3.16a) 


"7  = = b,,  - b Y^/Y 


8(b./b)  ^ b b^ 

a,  = = l[b  - - 

4 3Z  b^  z(()  b 


(b. . - bf/b)Y  /Y.] 

<p<p  lj>  Z (j) 


C = (^^,^2.53,5^) 


= wX^(2-V^)^^/0)  , = b^  - X^  + w^;^^X^/p 


^3  = wuX;^X_j_/o-l  , = wvitj^X_^/p  + b,/b 


3^1  = %\  = 1/Op 


In  the  above,  the  quantity  C’^  denotes  the  inner  product  of  these  vectors. 
Note  that  for  a perfect  gas  = - p/h;  for  a more  general  gas  la 
determined  numerically  using  central  differences  in  the  curve  fits. 


From  (A-11) , we  obtain 


3V2 

^ = a^u  + V/pw 


(3.17) 
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where 


n-ll  - pvwb  /b  - ^(T  Y.  + b./b) 
dY  z b 


n = (nj^,n2*n2.n^) 


^2  » ° ® > H3  = - b /b  , = -1 


Equation  (A-13)  remains 


9s  _ _ ^ 

9Z  w 9Y  * 


In  the  predictor  step  (i.e.,  (3.13)),  the  quantities  (|^),  • 

3V,  3^ 

(t^).  , and  (-:^)i  are  obtained  by  evaluating  (3.16)  - (3.18)  at 

ols  lytn  OL  lyin 

(Z^,0,Y^)  with  the  X partial  derivatives  replaced  by 


(l_)k 

9X^l,m 


< - < >i.m 


and  the  Y partial  derivatives  replaced  by 


(i_)k 

^aYa.m 


( )k  _ ( )k 

''  ''l,m+l  ^ ^l,m 


For  the  corrector  step  (3.16)  - (3.18)  are  evaluated  at  (Z*^  + AZ,0,Y^) 
using  predicted  values  of  the  flow  variables  with  the  X partial  derivatives 
replaced  by 


(— )* 


( >2  ™ „ 
Z,m  l,m 


and  the  Y partial  derivatives  replaced  by 


(-)* 

^9Y''l,m 


^ ^l.m  ^ ^l.m-1 
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An  alternative  proceedure  for  the  wall  point  calculation  can  be 
obtained  by  rewrittlng  (3.l6a)  and  (3.17a)  using  the  definitions  of  G 
and  e^,  (2.6)  and  (2.2),  and  the  thermodynamic  relation  (A-12),  i.e.. 


b 


z'  +'3Y 


- pB  (a^w  + 3jV) 


(3.16b) 


where 


3b, 


3Y 


(b  /h) 


and 


9^0  1 

-(/  - £\  1 V IE  pvw  , 

V - pB(a3u  - - b - IT  ^z 


(3.17b) 


We  have  found  that  the  use  of  (3.16b)  and  (3.17b)  instead  of  (3.16a)  and 

(3.17a)  can  in  certain  instances  yield  significantly  different  numerical 

results.  The  use  of  (3.16a)  and  (3.17a)  appears  to  provide  better*  results  on 

the  lee-side  of  bodies  at  large  angle  of  attack;  in  fact,  in  sphere-cone 

calculations  the  use  of  (3.16a)  and  (3.17a)  yields  numerical  results 

at  large  angles  of  attack  where  the  calculation  using  (3.16b)  and  (3.17b) 

falls.  On  the  other  hand,  immediately  downstream  of  discontinuities  in 

body  slope  which  produce  large  expansions,  the  use  of  (3.16b)  and  (3.17b) 

produces  numerical  results  where  the  calculation  using  (3.16a)  and  (3.17a) 

fails.  The  reason  for  these  dif fer ing  numerical  behaviors,  using  essentially 
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equivalent  analytical  formulas.  Is  not  understood  at  the  present  time. 

In  the  present  code,  both  formulations  are  available;  either  form  can  be 
selected  by  the  user.  The  scheme  using  (3.16b)  and  (3.17b)  is  automatically 
used  by  the  code  after  certain  discontinuities  in  body  slope  are  encountered 
(see  section  4.1  for  details). 

In  both  formulations,  the  X partial  derivatives  appearing  in  (3.16) 
are  forward  differenced  in  both  the  predictor  and  corrector  steps.  This 
makes  the  numerical  solution  at  the  wall  formally  first  order  accurate. 

Both  formulations  can  be  made  formally  second  order  accurate  (ref.  1) 
by  adding  a correction  to  the  corrector  formula  for  the  pressure;  viz.. 


pk+1 

l,ra 


* 

■J 


rt  * 


(3.19) 


where 


k 

l,m 


2p 


2,m  ^3,m 


AX 


- (pw/Bj^) 


k 

l,m 


2A 

(— 


k 

2,m 

Ax 


The  termp,  is  computed  in  the  predictor  step,  using  values  at  (Z  ,0,Y  ), 
i,m  m 

and  applied  in  the  corrector  step. 

In  the  present  code,  second  order  accuracy  is  an  option  which  can  be 
selected  by  the  user.  However,  care  must  be  exercised  in  the  use  of  this 
option.  The  higher  accuracy  can  be  achieved  only  when  the  computed  flow 
field  near  the  wall  is  sufficiently  smooth.  In  certain  instances. 
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spec i t i ca  1 1 y downstream  of  discontinuities  in  b<'dy  slope  and/or  body 
curvature,  numerical  oscillations  will  occur  in  tlie  computed  wall  pressure 

when  (’5.19)  is  used.  The  magnitude  of  these  oscillations  depends  on 

tlie  size  of  the  di scon t inu i t v ; the  case  of  body  slope  discontinuities  is 
more  serious — manv  times  causing  the  calculation  to  fall.  The  code  auto- 
matically switches  tlie  second  order  accurate  scheme  off  (if  it  was  originally 
selected)  when  discontinuities  in  body  slope  are  encountered  (see  section  4.1 

for  details).  Note  that  wlien  tiie  onlv  flow  nonuniformity  present  is  of 

the  type  lying  along  the  wall  (e.g.,  an  entropy  layer),  the  second  order 
scheme  can  still  be  used.  This  follows  because  the  only  quantities  which 
are  differenced  in  the  ,X  direction  are  p and  A which  are, as  we  have 
previously  indicated,  smooth  quantities  up  to  the  wall. 

3. 5 Symmetry  and  Periodic  Boundary  Points 

The  procedures  given  above  for  wall,  interior,  and  shock  points  must 
be  slightly  modified  at  the  boundary  planes  Y=0  and  Y=1  (corresponding 
to  m=l  and  M,  respectively)  since  some  of  the  differences  in  the  Y 
direction  require  quantities  defined  at  Y = - AY  and  Y = 1 + AY.  The 
required  quantities  are  obtained  using  either  symmetry  or  periodic  conditions 
depending  on  whether  the  symmetric  or  the  non-svmmetric  problem  is 
being  considered.  Additional  considerations  come  into  play  when  clustering 
transformations  are  being  used.  For  computational  simplicity  certain 
restrictions  are  placed  on  the  mapping  functions  f(X,Y,7.)  and  g(Y,Z). 

These  restrictions  varv  depending  on  whether  the  symmetric  or  the 
non-symmetrlc  problem  is  being  considered. 
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Consider  first  the  symmetric  problem.  Here  the  planes  ((>=0  and 
4'=it  are  boundaries  where  all  flow  variables  are  even  functions  of  4i 
except  V which  is  an  odd  function  of  (i.  Since  these  conditions  must  be 
applied  in  the  computational  space  (X,Y,Z),  it  is  natural  to  Impose  on 
the  mapping  function  f(X,Y,Z),  the  condition 

fY(X>0,Z)  = fyCX.l.Z)  = n (3.20) 


Now,  given  q^,  an  even  function  of  iC  about  ij>=0  and  it  in  the  physical 
plane,  it  can  be  shown  using  (3.1),  (3.2),  when  (3.20)  is  satisfied, 
that  in  the  computational  plane 


and 


q^(X,-AY,Z)  = q^(X,AY,Z)  + 0(AY  ) 


q^(X,l+AY,Z)  = q^(X,l-AY,Z)  + 0(AY  ) 


further,  if  q is  an  odd  function  of  * about  0 and  it  then 


and 


q^(X,-AY,Z)  = - q^(X,AY,Z)D(0,Z)  + 0(AY  ) 


q^(X,l+AY,Z)  = - q^(X,l-AY,Z)/D(l,Z)  + 0(AY  ) 


where 


(3.21)* 


(3.22)* 


D = [2-(gYY/gY)AY]/[2+(gYY/gY>AY]  . 

In  the  computation  for  the  symmetric  problem,  the  points  on  Y=0 
and  Y = 1 + AY  are  now  treated  in  essentially  the  same  manner  as  discussed 
in  the  previous  sections.  Except  for  the  quantities  needed  on  the  "fringe" 
planes  Y = - AY  and  Y = 1 + AY.  These  are  determined  using  either  (3.21) 
or  (3.22).  The  derivatives  of  g are  determined  by  direct  evaluation  of 
their  analytical  definitions  at  Y = - AY  and  1 + AY.  Thus,  it  is  required 


*The  derivation  of  these  expressions  is  carried  out  in  Appendix  B. 


38 


NSWC/WOL/TR  77-28 


that  g(Y,Z)  ht'  defined  (and  twice  continuously  differentiable)  for 
-AYiY<l+AY.  In  both  the  predictor  and  corrector  steps  the  boundary 
conditions 

v(X,0,Z)  = v(X,l,Z)  = V^CO.Z)  = V2(1,Z)  = 0 (3.23) 

are  imposed. 

Consider  now  the  non-symmetric  problem;  l.e.,  all  quantities  are 
periodic  functions  of  (})  with  period  2ir  in  the  physical  plane.  It  is 
convenient  for  computational  purposes  not  to  destroy  this  periodicity  in 
the  computational  space;  l.e.,  to  have  all  quantities  periodic  functions 
of  Y with  period  1.  This  can  be  achieved  by  requiring  that  the  mapping 
function  f(X,Y,Z)  be  periodic  in  Y with  period  1 and  that  the  mapping 
function  g(Y,Z)  be  such  that  [g(Y,Z)-Y]  is  a periodic  function  of  Y with 
period  1.  With  these  conditions  on  f(X,Y,Z)  and  g(Y,Z),  all  quantities 
are  periodic  in  the  computational  space.  The  calculation  is  now  performed 
for  only  M-1  planes  (m=  1 , 2 , • • *M-1)  corresponding  to  0<Y'S.1-AY.  For  Y=0 
(m=l)  and  Y=1-AY  (m=M-l)  it  will  be  required,  in  either  the  predictor  or 
corrector,  to  provide  quantities  on  Y=-AY  and  Y=l,  respectively.  These 
are  determined  bv  the  periodicity  conditions 

q(X,-AY,Z)  = q(X,l-AY,Z) 

and  V (3.24) 

q(X,l,Z)  = q(X,0,Z) 
where  q is  anv  quantity. 

3 . 6 Step  Si zc  ajid_  Stability 

The  step  size  AZ  is  chosen  in  accordance  with  the  CFL  condition 
(which  is  a necessary  condition  for  numerical  stability).  This  condition 
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is  that  the  domain  of  dependence  of  the  partial  differential  equations  must 
be  contained  in  the  domain  of  dependence  of  the  finite  difference  equations 
at  all  points.  The  computation  of  &Z  based  on  this  condition  is  carried 
out  in  Appendix  C.  We  give  only  the  final  results  here.  Note  that  two 
finite  difference  schemes  are  available  in  the  code  (corresponding  to 
j=0  or  1 in  (3.6a)  and  (3.6b))  and  the  CFL  condition  for  each  scheme  is 
different.  The  CFL  conditions  for  the  present  code  are  given  by 


AZ  < AXmln 


r 2 2v 


where  the  minimum  is  taken  over  all  computational  points, 
y is  defined  by 


At  each  point. 


where 


p = max(Uj^,P2»V3) 

y,  = IwA-a^X  I + a\l (v^-ah  + X^/r^)  + (A-wX  )^ 
1^2  = lfil[|wB-a^Y^|  + ay(w^+v^-a^)(Y^/r^)] 
y^  = |wA-a^X^  - <S  (wB-a^Y^)  | 


+ ai/(w^-a^)[X^+^X  -«Y^)^]  + (wX  -A+6vY  /r)‘ 
y r r*-  4>  4>  z $ 


and 


5 


AX/AY  , if  j=0 
-AX/ AY  ,lf  j = l 


In  the  code,  AZ  is  computed  using 

2_  2 

AZ  =£AXmin{— 


(3.25) 


where  0<£^;1  is  a numerical  constant  which  can  be  selected  by  the  user. 
Certain  adjustments  in  C can  be  made  when  discontinuities  in  body  slope  are 
encountered  (see  section  4.1  for  details). 
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4.  SPECIAL  EKATURES 

4.  1 Discont  Inui  tic‘S  In  Body  Slope 

Many  important  flow  field  applications  involve  body  shapes  given  by 

lunctions  b(<l,z)  that  contain  discontinuous  slopes  b and  b , e.g.,  bodies 

z 4^ 

wliich  have  slices  and/or  flaps  and  biconics  or  other  segmented  body  shapes. 

It  is  well  known  that  when  such  discontinuities  appear  certain  discontinuities 
in  the  flow  variables  at  the  surface  are  produced.  Furthermore,  these 
flow  discontinuities  generally  propagate  into  the  flow  field  as  either 
shock  waves  or  expansion  fans.  Numerically,  such  discontinuities  violate 
the  assumptions  which  underlie  the  basic  numerical  algorithms.  Computing 
the  flow  field  bv  marching  through  these  discontinuities  without  any  special 
provisions  produces  numerical  oscillations  downstream  of  the  discontinuity 
in  both  the  flow  variables  on  the  body  surface  and  in  the  interior  of  the 
flow.  When  the  discontinuities  are  large,  these  oscillations  can  result  in 
a program  halt  or,  at  the  very  least,  a substantial  region  of  unrealistic 
results . 

The  present  code  incorporates  special  provisions  which  are  used  when 
certain  discontinuities  in  body  slope  are  encountered.  The  code  approximately 
locates  these  body  discontinuities  and  then  computes  the  associated  flow 
discontinuities  in  the  surface  flow  variables  based  on  a local  analysis  of 
the  discontinuity.  We  have  found  that  this  procedure  gives,  in  most  cases, 
far  better  results  than  would  be  obtained  by  simply  marching  through  the 
discontinuity.  The  present  procedure,  however,  is  not  by  itself  a complete 
solution  to  all  the  problems  associated  with  body  slope  discontinuities. 

Even  thougli  the  scheme  for  interior  points  is  of  the  "shock  capturing" 
type,  numerical  oscillations  in  the  Interior,  downstream  of  a body 
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discontinuity,  can  develop  when  the  discontinuity  produces  large  expansion 

or  compression  discontinuities.  This  Is  a defect  in  the  MacCormack  scheme. 

In  certain  Instances  some  numerical  oscillations  also  occur  along  the  wall 

immediately  downstream  of  the  body  slope  discontinuity.  A consistent 

method  for  computing  the  body  surface  points  immediately  downstream  of 

discontinuities  of  this  type  is  not  known  at  the  present  time.  At  the  end 

of  this  section,  after  the  discussion  of  the  procedure  for  obtaining 

discontinuities  in  the  surface  flow  variables,  various  techniques  available 

in  the  code  for  improving  the  downstream  calculation  will  be  discussed. 

For  complicated  geometries  (e.g.,  bodies  with  slices),  the  precise 

location  of  body  slope  discontinuities  would  require  a considerable  amount 

of  additional  logic  and  computations.  For  this  reason,  in  the  present 

code  the  discontinuities  are  only  located  approximately;  l.e.,  within  at 

k+1  k 

most  AZ.  The  procedure  is  as  follows.  At  every  step  Z = Z + AZ, 

Ic 

the  values  of  b^  and  b^  are  compared  to  their  previous  values  (at  Z ) using 


(b  - (b  - AZ  max  {|(b 

z m z m ' zz  m' 


} > e 


(4.1) 


|(b  )*"  - (b.)^’*’^|  - AZ  max  {|(b  ,))'|,  I I } > ^ (4 

' (()  tn  m ' ' m m 

where  c Is  a small  positive  number  (we  use  e “ 10“^) . 

When  either  of  the  above  inequalities  is  satisfied,  the  code  assumes  that 

k k+1 

a discontinuity  in  b^  and/or  b^  exists  between  Z and  Z at  Y = Y^. 

At  each  such  value  of  Y,  the  body  geometry  is  temporarily  modified*  at 
k+1 

Z by  putting  the  body  shape  derivatives  b^,  b^,  b^^,  b^^,  and  b^^ 


*The  body  that  is  in  effect  created  at  Z = Z by  this  convention  will 
be  referred  to  as  the  "modified  body.” 
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equal  to  their  values  at  Z . This  temporarily  removes  the  discontinuities  i 

In  the  body  slopes  and  the  predictor-corrector  sequence  for  the  "modified  | 

body"  Is  performed  for  the  step  ^ using  the  basic  scheme  as  described 

In  section  3.  After  the  corrector  step,  the  body  derivatives  which  were 

modified  are  put  equal  to  their  true  values  at  Z^^^.  Also,  for  each 

value  of  Y where  discontinuities  were  sensed,  the  flow  quantities  at  the 

body  surface  are  changed  by  applying  a local  analysis  to  determine  the 

appropriate  flow  discontinuities  as  If  the  body  slope  discontinuity  were 

located  at  Z = Note  that  this  special  procedure  Is  only  applied  to 

discontinuities  or  b^  and  b^  in  the  Z direction.  No  special  consideration 

is  given  to  other  discontinuities  in  body  shape  (e.g.  discontinuities  in 

b , for  a fixed  Z) . 

Let  us  now  turn  to  the  procedure  for  determining  the  appropriate  flow 

discontinuities  at  the  wall  points  (0,Y^,Z^"*"^)  where  according  to  the  above 

procedure  discontinuities  in  body  slope  have  been  effectively  placed.  The 

analysis  is  conveniently  carried  out  in  the  physical  space  (r,4i,z). 

Let  (r^,<ti^, where  r^  = b(i|i^,z^)  be  the  body  surface  point  corresponding 

to  (0,Y^,Z^'*'^)  . We  will  denote  the  values  of  quantities  associated  with  the 

"modified  body"  geometry  by  the  subscript  - and  the  values  of  quantities 

associated  with  the  true  body  geometry  by  the  subscript  +.  The  modified 

body  geometry  will  be  referred  to  as  the  upstream  side  of  (r  .<J)  ,z  );  the 

o o o 

I r true  body  geometry  will  be  referred  to  as  the  downstream  side  of  (r  .d  .z  )*. 

o o o 

’ All  flow  quantities  on  the  upstream  side  of  are  the  computed 


*This  terminology  is  motivated  by  the  fact  that  the  flow  on  the  surface 

of  the  modified  body  is  in  the  direction  of  (r  ,4  ,z  ). 
j.  o o o 

The  symbol  ({ip  used  in  this  section  bears  no  connection  to  its  use  in  other 
sections  of  the  report. 
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values  at  this  point  using  the  modified  geometry  and  thus  are  known.  The 

problem  is  therefore  to  determine  the  flow  quantities  on  the  downstream  side 

of  (r  ,<j)  ,z  ) given  the  upstream  quantities  and  the  body  slopes  on  both  sides, 
o o o 

Because  b and/or  b.  have  different  values  on  the  upstream  and  downstream 
z V 

sides  of  (r  , ^ ,z  ),  there  are  two  distinct  body  normal  vectors  at  this  point; 
o o o 


l.e. , 


n_  = - (b  /b)_  e + e - (b  )_  e 
+ r z+z 


(4.2) 


The  situation  is  depicted  in  Fig.  4.  The  vector  t = n^  x n_  is  tangent 

to  the  edge  of  the  discontinuity  at  (r  ,(j>  ,z  );  c.f.,  Fig.  4.  We 

o o o 

Introduce  the  vectors  o_  = n x t and  consider  the  two  sets  of  mutually  per- 

+ T 

pendicular  unit  vectors,  one  for  each  side  of  (r^,i(,^,z^) , given  by 

= n./lnj,  e^  = t/|?|,  (e  )_  = ? /[?  |.  (4.3) 

With  respect  to  the  above  notation,  the  basic  conditions  used  to  determine  the 

flow  quantities  on  the  downstream  side  of  (r  ,4>  ,z  ) are: 

o o o 

i.)  V •!  = i.e.,  there  is  no  change  in  the  velocity  component 

tangent  to  the  edge. 

li.)  The  quantities  p_j_,p_j^,  and  [V^  - (V_j_*e^)e^]  are  to  be  determined 
so  that  the  Inviscld  boundary  condition  = 0 is  satisfied. 

Note  that,  by  computation,  the  upstream  flow  satisfies  the  boundary  condition 
V *n  =0.  Also,  using  i.)  and  applying  the  condition  = 0,  we  obtain 


V = (V  *e  )e  + V e (4.4) 

+ - T T 0^0^ 

— V — V - 

where  = (V^*e^  ) is  the  only  unknown  quantity. 

The  actual  procedure  for  carrying  out  ii.)  depends  on  the  value  of 

V = ^ *e  , the  known  upstream  component  of  the  surface  velocity  normal 

a - o 
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->•  -► 

to  the  edge.  From  standard  vector  identities  and  V -e  =0,  It  follows 

- n 


that 


“ |n_  I (V_-n^)/^|n_|~P^|^  - (n_*n^)^ 


(4,5) 


When  V 


< a , the  flow  across  the  edge  is  subsonic.  In  this  case,  a 


heuristic  procedure  is  used;  namely,  the  velocity  vector  is  rotated  to 
satisfy  = 0 assuming  there  are  no  discontinuities  in  |v|,  p,  and  p; 

l.e. , 


P+  = P. 


p = p , and  V 
+ - o , 


(4.6) 


When  |V^  ] i a_,  the  flow  across  the  edge  is  supersonic.  This  case  has 


been  analyzed  by  Prandtl  and  Meyer  in  a classical  Investigation  (see;  e.g., 
ref.  4,  chapter  XI).  This  analysis  Indicates  that  the  quantities  P_|_.P^, 


and  V can  be  determined  using  classical  two-dimensional  supersonic  turning 


relations  in  the  plane  determined  by  n^  and  n . The  angle  through  which  the 
flow  is  turned  is  given  by 

“If 


6 = cos  [ (n^*n_)/|n^| !n_| ] 


(4.7) 


There  are  two  cases;  viz.,  V >0  and  V <0.  When  V > 0,  it  follows 

0 0 o 


from  (4.5)  that  (V  "n,!.)  > 0 and  thus  the  flow  is  turned  by  a centered 


expansion  fan  attached  to  the  edge  (see.  Fig.  5a).  I'/hen  < 0,  it  follows 


that  (V  ’n_^)  < 0 and  the  flow  is  turned  by  an  oblique  shock  wave  attached 
to  the  edge  (see.  Fig.  5b).  In  the  latter  case,  it  can  happen  that  conditions 
are  such  that  no  oblique  shock  wave  exists;  e.g.,  this  can  occur  when  6 


is  large  and/or  (V^  /a  )^  is  near  one.  In  this  situation,  the  Prandtl-Meyer 


analysis  breaks  down  and  a heuristic  procedure  is  used.  This  will  be 
discussed  later  in  this  section. 
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1 


In  the  case  when  V > 0,  p.,  p.,  and  V are  obtained  from  the  equations 
for  a centered  expansion  written  In  the  following  differential  form; 


da 


pq 


yq^/a^  - 1 


where 


q2  = 2H  - (V  *e  )2  - 2h 

oo  “ T 


p = p(s_,p),  h = h(p,p),  a2  = a2(p,p) 
s_  = s(p_,p_) 


(4.8) 


In  the  code  (4.8)  Is  numerically  Integrated  on  the  Interval  O^ai.0 
(where  6 Is  given  by  (4.7))  subject  to  the  Initial  condition  p = p_  at 
a = 0 using  the  second  order  Imp rove d-Euler  method  with  18  subdivisions. 


The  final  results  at  a = 6 give  p,  = p V 

+ '^a=0  ’ o . 


^a=0’  ^a=0’ 


In  the  case  when  V < 0,  p, , p. , and  V are  obtained  using  the  oblique 
a +’  + a_|_ 

shock  relations.  Consider  first  the  case  of  a perfect  gas.  In  this  case, 

the  shock  relations  are  given  In  ref.  5 (pp.  9-10);  they  are  reproduced 

2 2 

here  for  the  sake  of  completeness.  Let  7))  (^^^  /a  ) solve 


X^  + cx'^  + cx  + c = 0 
1 2 3 

c^  = - (1  + - Y sln20 

c = (2W  + D/nj**  + [(y  + 1)^/^  + (y  - l)/7n^]sin2e 
2 

c^  = cos^e/jji** 

for  the  middle  root  (In  the  above,  0 is  the  turning  angle,  see  (4.7)). 
This  value  of  x Is  the  sine-squared  of  the  shock  angle.  We  then  have 


[perf ] 


(4.9) 
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p^/p_  = [2Y?rfx  - (y  - 1)]/(y  + 1) 
P+/P_  = (y  + 1)M2x/[(y  - 1)^2^  + 2] 


I [perf  ] 
r(A.lO) 


V,  /v^  = yi  - ^(Wx  - iKyWx  + i)/[(y  + 


As  we  pointed  out  earlier,  (4.9)  may  not  yield  a root  which  is  physically 
meaningful  (l.e.,one  that  increases  entropy)  for  certain  values  of  and  6. 
This  occurs  when 

7 3 

(2c3  - 9c  c + 27c  )^  + 12(3c^  - c„)  > 0 . 

1 1 2 3 3 2 


In  this  special  case,  a heuristic  procedure  is  used;  namely,  a normal  shock 

wave  (i.e.,  normal  to  a ) is  assumed  to  exist  on  the  upstream  side  in  front 

of  (r  ,<ji  ,z  ).  The  flow  quantities  behind  this  normal  shock  are  obtained 
0 0 0 

using  (4.10)  with  x = 1*  The  final  results  for  p_^,  p_^,  and  are  obtained 
by  performing  an  isentropic  expansion  from  the  normal  shock  values  to  the 
turning  angle  9 using  a modified  Newtonian  pressure  law;  i.e., 


P+ 


max 


{p  , p sin^e} 


ns 


s.  = s(p  ,p  ),h  =h(p  ,p  ) 

+ ns  ns  ns  *^ns  ,ns 

P+  = P(s4.,  P^),  h_^  = h(p^,  p^) 

V = --\/(V  )2  + 2(h  - h , )' 

T a ns  ns  + 

where  the  subscript  ns  indicates  the  values  obtained  from  (4.10)  with 

X = 1. 
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In  the  case  V <0  for  a real  gas,  the  oblique  shock  must  be  ; 

Q*  j 

determined  by  Iteration.  The  procedure  used  Is  to  satisfy  the  energy 

equation  i 

u^  + 2h(p_,  p_)  ” + 2h(p^,  p^)  1 

where 

u * sln6  V , u . “ cosB  V (1  - tan6  ctnB)/(tan6  + ctnB) 

“ U*  + (J— 

<V/  ^ 

p^  « p_  u_  /u^  , P+  ■ P_  U_  (u_  - + P_ 

r\j  f\j 

and  6 Is  the  shock  angle  (to  be  determined) . Here  u and  u^  are  the 
velocity  components  normal  to  the  shock.  The  algorithm  Is  Initiated  by 

i 

taking  slnB  > maxCalnd,  l/')(f^};  the  value  of  slnB  Is  then  Increased  until 
the  above  equation  Is  satisfied  (if  an  Increasing  entropy  solution  Is 
available) . If  such  a solution  does  not  exist  the  heuristic  procedure 
described  above  for  the  perfect  gas  caffe  Is  used  with  y * T . 

As  we  have  already  pointed  out,  the  calculation  downstream  of  body  slope 
discontinuities  is  adversely  affected  by  the  resulting  discontinuities  in 
the  surface  flow  variables.  In  order  to  minimize,  these  effects  certain 
optional  numerical  procedures  should  not  be  used  downstream  of  the 
discontinuity.  These  are: 

\ 
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1.)  the  second  order  accuracy  option  for  the  wall  point 
calculation  (see,  sec.  3.4) 

ii.)  the  wall  entropy  reduction  option  (see,  sec.  4.2)  when  the 
discontinuity  produces  an  oblique  shock  wave 
Furthermore,  we  have  found  from  computational  experience  that  the  version 

of  the  body  surface  point  calculation  using  (3.16b)  and  (3.17b)  gives  the 

best  results  downstream  of  a discontinuity.  Therefore,  after  a discontinuity 

in  body  slope  has  been  encountered  at  say,  Y^,  the  code  automatically  makes 

the  above  modifications  for  the  remainder  of  the  calculation  on  Y = Y . 

m 

When  discontinuities  are  encountered  which  produce  large  expansion 
discontinuities  at  the  surface,  the  calculation  for  interior  points  down- 
stream of  the  discontinuity  becomes  ill-behaved.  Numerical  oscillations 
appear  in  the  conservation  vector  U which  can  produce  negative  pressure  at 
isolated  points  in  the  interior  flow  field.  For  such  situations, 
the  code  has  incorporated  a selective  (local)  smoothing  scheme*.  If  the 
pressure  in  either  the  predictor  or  corrector  step  is  negative  at  an  interior 

point  (X  ,Y  ,Z  ) then  the  conservation  vector  is  redefined  using 
n m 


+ d )/(e  + 2) 

n,m  n+l,m  n,m  n-l,m 


(4.10.1) 


where  ® is  a non-negative  integer  which  is  chosen  by  the  user.  In  the 

calculation,  is  replaced  by  and  the  flow  variables  at  (X  ,Y  ,Z^) 

n,m  ^ n,m  n m 

are  redefined  accordingly.  In  some  instances,  the  computed  results  are  improved 
after  large  expansion  discontinuities  by  reducing  the  step  size.  The  code 
Includes  an  option  which  automatically  does  this  after  an  expansion  discontinuity 


*The  application  of  such  smoothing  techniques  can  be  shown  to  yielci 
order  accurate  approximations  for  smooth  flow  problems. 
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by  changing  the  step  size  to  AZ/I  where  I Is  an  Integer  greater  than  or 
equal  to  one  which  can  be  chosen  by  the  user.  The  calculation  for 
Interior  points  downstream  of  compression  discontinuities  Is  better 
behaved  than  when  expansion  discontinuities  are  present  and  no  special 
techniques  need  be  applied  at  Interior  points  In  the  case  of  compressions. 

Immediately  downstream  of  large  compression  or  expansion  discontinu- 
ities the  wall  point  calculation  Is  Ill-behaved.  We  have  found  In  computa- 
tions for  planar  compression  and^  expansion  ramps  and  axlally-symmetrlc 
bodies  that  the  region  of  poor  surface  results  extends  from  the  discontinuity 
downstream  to  a point  on  the  body  where  the  shock  wave  propagates  Into  the 
Interior  flow  past  the  first  Interior  point  (corresponding  to  n = 2).  Based 
on  these  observations,  the  difficulty  appears  to  be  that  In  the  wall  point 
, calculation  the  differences  In  the  X direction  must  be  taken  across  the 

flow  discontinuity  until  It  propagates  across  the  first  Interior  point. 

^ At  the  present  time  no  rational  approach  for  computing  the  wall  points  In 

this  region  which  Is  valid  for  general  three  dimensional  flows  Is  kno\m. 

We  have  found  that  the  following  heuristic  procedure  Improves  the  numerical 
results  at  the  wall  In  this  region.  After  a discontinuity  In  body  slope 
has  been  encountered,  which  produces  a pressure  discontinuity  at  say, 

^ Y , the  wall  point  calculation  at  Y for  subsequent  steps  Is  performed 

m m 

while  the  terms  In  (3.16)  which  contain  X-derlvatives  are  multiplied 
^ by  a factor.  This  factor  Increases  smoothly  from  zero  at  the  edge  to 

unity  after  a fixed  number  of  downstream  marching  steps. 
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The  user  can  select  the  number  of  marching  steps  for  the  code  to 

use  this  procedure.  (When  this  number  is  put  equal  to  zero  the  procedure 

is  not  used.) 

In  the  calculation  of  complex  body  shapes  (e.g.,  bodies  with  slices 
and  finite  span  flaps),  there  can  be  planes  Z = constant  where  some  wall 
points  have  expansion  discontinuities,  some  have  compression  discontinuities, 
and  some  have  no  discontinuities.  The  code  logic  has  been  written  to 
account  for  such  situations  with  regard  to  both  the  determination  of  the 
discontinuities  at  the  body  surface  and  the  special  numerical  procedures 
used  downstream  of  the  discontinuities. 

A. 2 Wall  Entropy  Reduction 

In  the  calculation  of  blunted  smooth  body  shapes,  the  basic  scheme  will 
maintain  the  wall  entropy  at  the  stagnation  point  value  (see,  (3.13),  (3.14) 
and  (3.18)).  This  is  the  correct  value  of  wall  entropy  corresponding 
to  inviscid  flow.  In  the  case  of  a slender  blunted  body,  the  flow  variables 
downstream  of  the  nose  develop  large  radial  gradients  at  the  wall  (except 
for  pressure  and  the  normal  component  of  velocity) . The  region  containing 
these  gradients  decreases  in  thickness  as  the  flow  develops  downstream. 

This  inviscid  phenomenon  is  known  as  the  entropy  (or  vortical)  layer.  As 
we  have  previously  pointed  out  (in  section  3.4)  the  basic  computational 
scheme  is  Inherently  capable  of  maintaining  the  correct  inviscid  value  of 
wall  entropy  and  performing  the  calculation  when  strong  entropy  layers 
are  present  without  using  special  numerical  techniques.  In  practical 
calculations  of  interest,  the  entropy  layer  cannot  actually  be  resolved 
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numerically  because  ultimately  the  layer's  thickness  will  become  sm-il ler 
than  the  radial  mesh  spacing  that  one  can  afford  to  employ  on  any  computer. 
When  this  happens,  the  present  code  computes  a flow  discontinuity  at  the 
body  surface  which  corresponds  to  the  variation  of  the  flow  variables  across 
the  entropy  layer.  This  numerical  discontinuity  has  the  character  of  a 
contact  discontinuity  in  that  the  pressure  and  normal  component  of  velocity 
are  continuous  across  it. 

The  development  of  the  entropy  layer  and  the  corresponding  numerical 
discontinuity  produces  at  the  body  surface  a flow  which  has  a higher  entropy 
and  lower  Mach  number  than  the  adjacent  Interior  flow.  This  has  at  least 
two  important  effects  on  the  subsequent  calculation  for  the  downstream  flow 
field.  First,  the  low  axial  Mach  number  at  the  surface  causes  a decrease  in 
the  step  size  AZ  (see,  (3.25).  Thus,  more  computational  steps  are  required 
and,  hence,  more  computational  time  Is  required  than  if  the  wall  entropy 
were  at  a level  corresponding  to  the  adjacent  interior  flow.  Second,  the 
lower  speed  flow  on  the  wall  can,  in  the  presence  of  internal  shock  waves 
near  the  wall,  become  locally  subsonic  in  the  axial  direction  even  though 
the  adjacent  interior  flow  remains  supersonic.  The  appearance  of  axially 
subsonic  flow  at  any  point  in  the  computation  immediately  halts  the 
calculation. 

It  is  therefore  expedient  in  some  cases  to  reduce  the  wall  entropy  and 
thereby  reduce  or  eliminate  the  entropy  layer.  The  procedure  for  performing 
this  given  by  Kyriss  and  Harris  (ref.  6)  is  Incorporated  as  an  option  in  the 
present  code.  The  method  is  basically  to  define  the  wall  entropy  by  linear 
extrapolation  from  the  Interior  points  rather  than  using  (3.13),  (3.14) 
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f 


and  (3.18).  This  procedure  gradually  reduces  the  wall  entropy  as  the 
entropy  layer  develops.  The  actual  algorithm  is  given  by 


"k 

s 

1 ,m 


r 2 ; if  > s’! 

2,m  3»m  2,m  3,m 


= < 


. j(s!^  + ) ; if  < s’! 

^2  2,m  3,m  2,m  3,m 


(4.11) 


,k+I 
1 ,m 


^ * * * * 

2 S - S.  ; if  S„  > S. 
2,m  3,m  2,m  3,m 


, 1 * * * * 

^ m + S ) ; if  S„  < S, 

2 2,m  3,m  2,m  3,m 


(4.12) 


The  wall  entropy  is  defined  by  (4.11)  or  (4.12)  for  1 ■£  m ms  and  by 
(3.13)  or  (3.14)  and  (3.18)  for  ms  < m < M where  ms  is  an  integer  O^msiM 
which  is  selected  by  the  user.  Note  that  when  ms  = 0,  the  option  is  not 
used  and  when  ms  = M,  the  option  is  used  for  all  wall  points.  Kyriss  and 
Harris  use  essentially  this  procedure  only  on  the  windward  plane  (ms  = 1, 
for  the  symmetric  problem)  and  allow  the  lower  entropy  to  be  convected 
around  the  body  using  (3.18).  We  have  found  that  ms  = 2 works  better  in  the 
present  code.  Note  that  unless  ms  = M,  there  will  be  no  reduction  of  the 
wall  entropy  on  the  leeside  in  a symmetric  problem  (c.f.,  (3.18)). 

Reducing  the  wall  entropy  by  the  above  procedure  substantially  increases 
the  step  size  and  thus  decreases  computer  run  time  without  changing  the 
surface  pressure  results  for  smooth  body  geometries.  The  other  surface 
variables,  however,  are  changed  considerably.  When  discontinuities  in 
body  slope  are  encountered,  the  associated  jumps  in  the  surface  flow 
variables  (see,  sec.  4.1)  are  significantly  different  depending  on  whether 
or  not  the  wall  entropy  has  been  reduced.  Further^ differences  in  the  computed 
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surface  pressure  distribution  develop  for  a region  Immediately  dovmstream  of 
the  body  slope  discontinuity  even  though  the  option  is  turned  off  after  a 
discontinuity  in  body  slope  is  encountered.  We  have  also  found  that  in 
some  calculations  involving  windward  flaps  that  the  use  of  this  option 
resulted  in  successful  calculations,  whereas,  the  calculation  not  using  the 
option  failed  due  to  the  appearance  of  subsonic  axial  flow  at  some  point 
on  the  flap. 

It  should  be  pointed  out  here  that  the  above  option  is  a purely  heuristic 
procedure  and  there  are  many  open  questions  associated  with  its  use.  No 
rational  Interpretation  of  the  numerical  results  obtained  using  the  option 
has  been  given — the  results  do  not  correspond  to  inviscid  flow  in  the  strict 
sense.  At  the  present  time  it  is  not  known  a-prlori  when  (or  when  not)  to 
use  this  option  in  general  circumstances.  When  new  flow  configurations  are 
to  be  computed,  we  strongly  recommend  that  where  possible  a few  test  cases 
should  be  computed  both  with  and  without  the  option  and  that  the  decisions 
on  the  use  of  the  option  should  be  based  on  a close  examination  of  the 
results  for  physical  consistency. 
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4. 3 Mesh  Clustering 

In  this  section  the  use  of  the  mesh  clustering  transformations  In 
our  code  Is  discussed.  As  Indicated  In  Section  3.1,  clustering  the  mesh 
In  the  physical  plane  in  either  r or  ij>,  or  both  directions,  can  be 
accomplished  by  appropriate  choices  of  the  mappings  f(X,Y,Z)  and  g(Y,Z). 
The  primary  purpose  of  mesh  clustering  Is  to  distribute  points  In  the 
physical  plane  (r,<(>),Z  = const,  so  that  a region  of  large  flow  field 
gradients  will  contain  relatively  more  computational  points  than  a region 
where  there  are  more  gradual  changes.  The  use  of  such  techniques  Is 


fairly  common,  see  refs.  3,7,  but  very  rarely  Is  It  carefully  described  In 
terms  of  Its  overall  efficiency  and  cost  effectiveness. 


Our  preliminary  experimentation  with  these  techniques  has  revealed 
that  a straightforward  attempt  at  Incorporating  such  mappings  into  flow 
field  calculations  may  produce  unexpected  difficulties.  For  example, 
attempts  at  clustering  mesh  points  In  the  r direction  near  the  body  surface 
to  resolve  the  entropy  layer  were  not  successful.  It  is  clear  that  if 
one  attempts  to  fully  resolve  the  types  of  entropy  layers  encountered  on 
missile  configurations  that  the  transformations  themselves  would  have  to 
Incorporate  such  large  gradients  that  computationally  the  transformations 
could  appear  to  be  "discontinuous". 

To  illustrate  some  of  the  code  requirements  that  must  be  satisfied 
an  example  Is  Included.  Consider  the  set  of  transformation  functions  for 


(3.2)  given  by 


z = Z 


(Z  - z )X^  + X 

■ (z  - /)  V r < 

o 

(Z  - z )Y^  + V 

O' 


» r,  .. 
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where  j,*^  are  Integer  exponents  chosen  suitably  and  represents  the 
Z location  where  the  calculation  Is  first  started.  The  above  transformation 
has  the  effect  that  a uniform  mesh  at  Z « z^  Is  gradually,  as  Z Increases, 
evolved  Into  a mesh  with  more  radial  points  clustered  about  the  body  surface 
and  more  planes  clustered  about  the  wind  plane  ■ 0)  In  the  physical 
plane  (see  Fig.  6). 

For  f(X,Y,Z)  and  g(Y,Z)  to  be  an  admissible  coordinate  transformation 
they  must  be  one-to-one  (Invertible)  mappings  and  twice  continuously 
differentiable  with  respect  to  X,Y,Z  and  satisfy 

f(0,Y,Z)  - g(0,Z)  « 0 


(4.13) 


f(l,Y,Z)  - g(l,Z)  « 1 

For  our  particular  example,  the  definition  immediately  reveals 
that  these  conditions  are  all  satisfied.  Note  In  addition  to  the  piecewise 
analytical  definition  of  f and  g our  code  requires  the  following  partial 
derivatives  be  similarly  given: 


{ f , fy , f z . »^YY  *^ZX^ 

^ 8y  * 8^ • ®YY  * ®ZY^ 

Returning  to  our  above  example,  note  that  these  partial  derivatives 
are  easily  determined.  It  Is  also  easy  to  verify  that  our  example  Is 
one-to-one  since  one  easily  checks  that  fj^(X,Y,Z)  > 0 and  gY(Y,Z)  > 0 
are  satisfied.  Furthermore,  we  observe  that 


f^(0,Y,Z)  - ^(0,Z) 


1 

Z+1 


Indicating  that  for  Z >>  1 more  points  are  clustered  about  th  ly 
surface  and  wind  plane  (see  Fig.  6). 
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Finally  an  additional  condition  is  Imposed  at  the  boundary.  To 
apply  the  transformation  to  a sywmetTlc  problem  it  is  required  that 


fYOC.O.Z)  = f^OC.l.Z)  » 0 

For  the  above  example  this  is  clearly  satisfied.  On  the  other  hand,  the 
above  transformation  would  not  be  suitable  for  a non-symmetric  problem. 
For  in  this  case  it  is  required  that 


f(X,Y+l,Z)  = f(X,Y,Z) 


(4.14) 


g(Y,Z)  - Y = g(Y+l,Z)  - (Y+1)  . 

Whereas  the  former  condition  is  clearly  satisfied,  it  is  easy  to  see 
that  no  choice  of  exponents  i in  our  above  example  will  make  g(Y,Z)  - Y 
satisfy  the  periodicity  condition. 

In  our  early  studies  we  attempted  to  systematically  develop  trans- 
formations from  simple  piecewise  polynomial  or  rational  functions.  The 
use  of  polynomials  would  result  in  a saving  on  the  functional  evaluations 
required  compared  to  using  transcendental  mapping  functions  (refs.  3,7). 
Our  experiences  with  implementing  a variety  of  polynomial  Interpolatory 
methods  revealed  that  it  was  difficult  to  predict  the  parameters  for  a 
particular  computation.  Moreover,  with  the  various  analytical  conditions 
to  be  satisfied  (such  as  (4.14))  and  the  further  desirability  of  having 
specific  points  Included  in  the  mesh,  the  analytical  approach  becomes 
overly  burdened.  For  these,  and  other  reasons  stated  below,  we  have 
adopted  the  approach  of  defining  mesh  transformations  by  a user -given  set 
of  discrete  spatial  points.  The  user  must  provide  a set  of  points 

(x  } and/or  = y and  the  code  (see  sections  12.5, 

n m in  0 

12.6)  will  assign  the  relationship 

*n  ” " “ 1.2* --N;  "»  ' 1,2- -M. 
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Clearly  one  must  select  the  points  to  satisfy  (4,13)  and  whatever 
appropriate  conditions  such  (4.14)  may  be  required. 

Note  well , this  Implicit  definition  of  the  underlying  transformation 
functions  will  be  assumed  to  be  smooth.  If  the  data  chosen  does  not 
arise  from  a context  where  smoothness  Is  guaranteed.  It  Is  best  to 
modify  the  choice  to  enforce  some  degree  of  smoothness.  Our  strategy 
has  been  to  Implement  a "mesh  pre-processor".  All  this  entailed  was  a 
simple  smoothing  of  the  data  points  using  equation  (4.10.1)  with  © = 2. 
This  Is  repeated  several  times  until  the  resulting  differences  appear 
smooth. 

To  approximate  derivatives  we  use  standard  finite  difference 
approximations  from  the  given  (or  smoothed)  data.  For  our  purposes 
It  Is  sufficient  to  approximate  these  derivatives  to  second  order 
accuracy.  For  interior  points  n = 2,***,N-1,  m = 2,***,M-1  we  use 


standard  centered  differences 


<^XX^n  = 


f(X  ) - 2f(X  ) + f(X  ) 
n+i  n n-l 


with  similar  expressions  for  (gv)_  and  (gw)  • 

I In  I 1 in 

The  only  points  requiring  any  explanation  are  the  end  points  of  the 
Intervals.  By  second  order  extrapolation 

^^XX^n=l  ' ^^^XX^n=2  " ^^XX^n=3 
^^XX^n=N  " ^^^XX^n=N-l  " ^^XX^n=N-2 
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A second  order  approximation  to  derived  by  assuming  that 

(fjQj)  Is  essentially  linear  on  the  Intervals  (0,  2AX)  and  (1  - 2AX,  1)  then 


AV 

^^X^n=l  “ ^Vn=2'‘^  ^^^XX^n=l  ^^XX^n»2^ 


(4.16a) 


and 


AX 


^^X^n=N  ~ ^^X^n=N-l  “ 2 ^^^XX^n=N  ^^XX^n=N-l^  (4.16b) 

For  g(Y)  a similar  treatment  Is  employed,  for  the  symmetric  case. 

Indeed  at  m = 1,M  the  approximations  Identical  to  (4.15)  and  (4.16)  are 
made  to  g^^  and  g^,  respectively.  In  the  S5rmmetrlc  case  It  Is  further 
required  to  compute  fringe  planes  Y = - AY  and  Y = 1 + AY.  Again  the 
same  approximations  are  used  except  now  we  assume  Is  linear  In  the 
extended  Interval  (-AY,  2AY)  and  (1-2AY,  1+AY) . In  the  non-symmetrlc 
case,  the  data  defining  g(Y)  Is  extended  beyond  0 - Y 1 using  the  perodlclty 
conditions.  The  first  and  second  derivatives  at  Y = 0,1  are  determined 
In  the  same  manner  as  at  Interior  points. 

Our  experience  has  convinced  us  that  the  use  of  the  above  type  of 
discrete  definition  of  mesh  transformations  In  conjunction  with  a pre- 
processor mesh  smoother  offers  the  widest  flexibility  for  the  user.  One 
can  easily  create  a local  refinement  of  the  mesh  without  much  analytical 
care  If  one  Is  prepared  to  allow  a mesh  smoother  to  alter  your  Initial 
mesh  array.  Our  experience  has  shown  that  a reasonable  eyeball  choice 
followed  by  several  smoothings  will  only  slightly  alter  the  mesh  and 
will  retain  the  concentrations  In  the  regions  where  originally  desired. 
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5.  FORCE  AND  MOMENT  CALCUIATIONS 

The  aerodynamic  forces  and  moments  acting  on  the  vehicle  are  obtained 
by  numerically  integrating  the  computed  surface  pressure  distributions. 

In  the  code,  these  calculations  are  performed  in  auxiliary  subroutines  so 
that  the  user  may  conveniently  substitute  alternative  definitions  and/or 
numerical  Integration  procedures.  In  this  section,  the  procedures  and 
definitions  currently  available  in  the  code  are  described. 

The  sign  conventions  for  the  components  of  the  aerodynamic  force  and 
moment  are  illustrated  in  Fig.  7.  The  force  and  moment  are  computed  assuming 
that  the  base  pressure  is  p . Both  the  force  and  moment  have  dimensions 
of  pressure.  The  center  for  the  moments,  C,  is  any  point  on 
the  z-axls  where,  say,  z=z^  (see.  Fig.  7).  The  derivative  with  respect  to 
z of  the  force  components  are  given  by 

^=/  (P-Pjbbd*.  (5.1) 

dZ  O VJ  " Z 

3F 

(P^“P„)  (b  cosi|)  + b^slnif)  di}>  , (5.2) 

3F  j 

— (p  -p  ) (b,cos(}i  - b siniji)  d4i.  (5.3) 

3z  o w ® 4> 


The  derivatives  with  respect  to  z of  the  moment  components  taken  about 

C(z=z  ) are  given  by 
c 
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3F  2ir 

^ + {,  (5.6) 

In  (5.1)  - (5.6),  p denotes  the  surface  pressure.  Note  that  for  the 
w 

symmetric  problem 


3F  9M^ 

— — EL  = 0 . 

3z  3z  3z 

The  integrals  appearing  in  the  above  are  computed  numerically  at  each 

computational  step,  z=Z  , using  Simpson's  rule  in  the  computational  plane. 

For  the  purpose  of  discussion,  consider 

T = d(). 

o 

which  is,  for  a fixed  value  of  z,  the  general  form  of  all  the  above  integrals. 
For  the  symmetric  problem,  the  non-zero  integrals  are  written  in  the 
computational  plane  as 


i' 


'f  = 2/^(<i»/Y.  )dY  = 2/^5;(Y)dY  , 
of  o 

This  is  numerically  integrated  on  the  uniform  computational  mesh  using 
Simpson's  rule  in  the  form 

OAY  'X;  'V  'X#  % 

Y = + 4tJ^2  + + 40^  + 2ii-^  +•  • 

* ^^M-2  ’’’  ^^M-1  ’ if  M is  odd 

and 

2AY.'i  .1  „!■ 

Y = + 2il)^  + + 2^^  +••• 

^^M-3  ^^M-2  "I  (^^M-1  ^ ^ 

% % 

where  = >KY^)  , Y^^  = 1.  In  the  last  expression,  the  trapezoidal  rule  is 

used  for  the  subinterval  Y^^] . In  the  nonsymmetrlc  problem  Y is 

written  as 
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= /^^(Y)dY  . 

In  this  case,  the  integrands  are  periodic  functions  of  Y with  period  1 

(i.e.,  i|i(Yj)  = and  Simpson's  rule  becomes 

AY , 'Xj  'Xj  ^Xj 

H'  = +••• 


••+  2i)j^_2  + if  M is  odd 

= + Ai)j^  + +••• 

••+  2V3  ■"  ‘Va'  , if  M is  even. 


The  code  also  computes,  at  each  computational  step,  Z*^,  the  force  and 
moment  vectors  acting  on  the  body  truncated  at  z = Z . These  quantities 


are  defined,  for  ejcample,  by 

F^(z  ) = ; T — dz 

a o 9 z 

with  similar  expressions  for  the  other  truncated  force  and  moment 
components.  The  Integrals  of  the  type  (5.7)  are  .evaluated  numerically 


(5.7) 


using  the  trapezoidal  rule;  i.e.. 


V4-1  V _ 7^  r 


r T 


with  similar  expressions  for  the  other  force  and  moment  coefficients. 

Note  that  this  calculation  requires  the  force  and  moment  on  the  body 
truncated  at  the  Initial  plane  z = z^.  These  quantities  must  be  given  along 
with  the  initial  flow  field  data. 

The  final  results  are  presented  in  coefficient  form  by  dividing  the 

Poo  r, 

force  components  and  their  derivatives  by2^^A^g£  and  the  moment  components 

and  their  derivatives  byr~V^(A  r) (z  ^)  where  A ^ is  a reference  area 

^ 2 CO  ref  ref  ref 
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2 

Cnon-dimensionalized  by  R ) . The  parameters  z , z and  A „ can  be 

o c ref  ref 

selected  by  the  user;  however,  if  no  selection  is  made,  the  code  assumes 
that  = 0,  is  the  body  length,  and  is  the  base  area  of  the 

baseline  body  (see,  Fig.  6).  The  code  also  computes  two  centers  of 
pressure.  The  center  of  pressure  in  pitch  defined  by 


(Z  ) = + \^^n^ 

C.p.  “ 

o 


(5.9) 


for  F ^ 0 and  the  center  of  pressure  in  yaw  defined  by 
n 


(z  ) , 

y 


(5.10) 


for  F 7^  0. 

y 
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APPENDIX  A 

DIFFERENTIAL  EQUATIONS  FOR  BOUNDARY  POINTS  ON  THE 
BODY  SURFACE  AND  THE  BOW  SHOCK  WAVE 


In  this  ippendix  differential  equations  are  derived  which  are  used  for 
the  computation  at  points  on  the  boundaries  X * 0 and  1.  These  equations 
are  obtained  from  certain  characteristic  compatablllty  conditions  evaluated 
on  X * 0 and  1.  Such  equations  have  been  used  in  various  forms  in  many 
non-conservation  codes  (e.g.,  see  refs.  (6,  8,  9).  The  equations  used 
in  the  present  code  differ  from  those  previously  used.  The  advantages 
of  the  present  equations  are  discussed  in  Secs.  3.3  and  3.4. 

Since  we  are  concerned  with  the  boundary  conditions  on  the  planes  X ■ 0 
and  1,  it  is  sufficient  to  consider  the  system  (3.3)  in  the  form 


3U  9F 
3Z  3X 


12. 

3Y 


- = (R, 


(A-1) 


In  this  equation,  the  right  hand  side,  ^ , will  be  treated  as  an  inhomo- 
geneous terra  since  the  Y derivative,  being  Interior  to  X = 0 and  1,  depends 
only  on  quantities  on  the  boundary  planes.  From  this  point  of  view  (A-1) 
is  treated  as  a hyperbolic  system  in  one  space  dimension  X with  Z time-like. 

We  have  on  the  boundary  plane,  X = 0,  the  condition  that  u “ b w + (b./b)v. 

Z (|> 

On  the  boundary  X •=  1,  the  Ranklne-Hugoniot  conditions  (2.7)  are  satisfied. 
To  motivate  our  treatment  of  the  boundary  points,  consider  as  a prototype 
problem  the  mixed  initial-boundary  value  problem  on  the  strip  Z ^ 0, 

0 < X < 1 where  initial  data  is  given  on  Z ■ 0 and  boundary  conditions  are 
given  on  X = 0 and  1.  It  is  known  (see,  for  example,  ref.  10,  pp.  471-475) 
from  the  theory  of  hyperbolic  systems  in  one  space  dimension  that,  for  a 
well  posed  mixed  initial-boundary  value  problem,  of  this  form,  certain 
Information  concerning  the  solution  at  boundary  points,  say,  (0,Z*)  and 
(1,Z*)  can  be  determined  from  the  characteristic  compatability  conditions 
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corresponding  to  the  characteristics  through  (0,Z*)  and  (1,Z*)  which  enter 
the  region  {0  < X < 1,  Z < Z*}  (e.g.,  In  Fig.  A-1,  the  curves  ^ ^ and 
C3  through  (0,Z*)  and  the  curves  and  ^ through  Cr,Z*)).  The  remaining 
Information  required  to  completely  determine  all  the  unknowns  at  (0,Z*) 
and  (1,Z*)  must  be  provided  by  the  boundary  conditions  specified  on  X “ 0 
and  X = 1.  These  boundary  conditions  are  needed  to  replace  the  character- 
istics through  (0,Z*)  and  (1,Z*)  which  do  not  enter  the  region  {0  X < 1, 

Z < Z*},  (e.g.,  t,  2 through  (0,Z*)  and  through  (1,Z*)  In  Figure  A-1). 

These  characteristics  are  Inadmissible  since  there  Is  no  Information 
available  for  X < 0 and  X > 1. 

As  we  shall  see  In  the  following,  at  the  boundaries  X •»  0 and  1 the 
system  (A-1)  has  four  Independent  characteristic  compatablllty  equations. 

At  X = 0,  there  Is  one  C^^-type  characteristic,  one  C characteristic, 

and  two  C^'type  characteristics  (see  Fig.  A-1).  Consistent  with  the  above 
remarks,  we  will  find  that  the  three  compatablllty  conditions  corresponding 
to  the  and  characteristics  will  provide  differential  equations  for 
advancing  three  unknown  quantities  on  X =»  0.  These  quantities  together 
with  the  boundary  condition  u = b w + (b  /b)v  determine  all  flow  variables 

Z 0 

on  X = 0. 

On  the  boundary  X = 1,  there  are  three  ^ ^-type  characteristics  and 
one  ^ -type  characteristic  (there  are  no  ^ -types) . We  will  find  that  the 
compatablllty  condition  corresponding  to  the  characteristic  will 

provide  a differential  equation  for  determining  the  shock  shape  function 
c(ip,z).  The  shock  geometry  together  with  the  Ranklne-Hugonlot  relations  (2.7)  ~ 

determine  all  flow  quantities  on  X = 1. 

In  order  to  derive  the  necessary  characteristic  conditions,  the  system 
(A-1)  Is  rewritten  In  an  equivalent  quasl-llnear  form.  This  can  be  done 
by  changing  the  dependent  variables  In  (A-1)  from  U to 
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We  assume  here  that  p = p(p,h)  where  h is  given  by  (2.2). 
chain  rule,  we  have 


Using  the 


,3U  ^ 

3Z  dZ 


(A- 2) 


and,  from  (3.3a), 


Lx  = \ 3X 


3X  9X  3X,  , , 


(A-3) 


U 9.1^ 

where  Jacobian  matrices. 


These  can  be  obtained  by  taking  partial  derivatives  with  respect  to  the 
components  of  Q of  (2.1a)  and  (2.1b)  using  (2.2);  for  example. 


-)^^wv 

1+^2'^^ 

V.  2 

V 

V 2 

PW“/(^WU 

-J^^wuv 

pu-X'^w 

>(2wv 

-J^^wvu 

pw-)^j^wv^ 

PV-)(^^w 

where  ;^1  = (|^-)  and 
P 

related  to  the  sound  speed  by 


h 


are  thermodynamic  quantities  which  are 


a 

Substitution  of  (A-2)  and  (A-3)  into  (A-1)  yields  the  desired  quasi-linear 
system.  This  system  Is  simplified  by  multiplying  each  term  on  the  left 
by  the  non-singular  matrix 


Q = 


-w 


1 

0 


0 

1 
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The  resulting  system  of  equations  is 


where 


A = 


Ay- 


aIS  _2' 


wu 


pw 


-X, 


wv 


pw 


»-V‘ 


pw 


(A- 5) 


(A-5a) 


E 


and 


^2^ 


r 4 


R = 


av 


^rP-u)?iA  ^X^p-vj^^A  X^p-w)^jA 


pA 


3Y. 


pA 


pA 


(A- 5b) 


(A-5c) 


The  system  (A-5)  can  be  reduced  to  characteristic  form  by  standard 
methods  (see,  e.g.,  ref.  10  , pp.  424-427)  although  the  required  computa- 
tions are  lengthy.  We  summarize  the  procedure  here.  Since  the  matrix 

A* 

is  non-singular  for  w>a,  we  can  consider  the  characteristic  matrix  /\ 
associated  with  (A-5)  in  the  form  A*  - xA+B  where  X is  a scalar.  For 
every  real  value  of  X which  is  a root  of 
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det(A*)  = P^(Xw  + A)^f  (Xw  + A)^/a^  - [(X+X)^  + X^+i7r  X^^]}  - 0 (A-6) 

z r ^ ? 

r 

there  corresponds  a real  left  null  vector,  of  A*  (i.e,,  H.A*  » 0). 

A A 


Hence, 


- xe^A  . 


(A-7) 


Multiplying  (A-5)  on  the  left  by  and  using  (A-7) , we  obtain  the  scalar 


equation 


I A (15.  - x^)  “ i . 
X'^''3Z  3X  X^ 


(A-8) 


This  equation  Is  referred  to  as  the  characteristic  compatabllity  condition 

dX 

along  the  characteristic  curve  defined  by  ^ = -X  since  the  quantity 

- X-^  Is  the  directional  derivative  tangent  to  this  curve.  The  roots 
o ^ 0 X 


of  (A-6)  are 


X = - A/w  (multiplicity  2) 
o 


-wA  + a^X  ± a^e^ 

= 2-^2 ^ 

w - a 


- a^)(X  ^ + iy  x h + (A  - X w)^ 
r <I>  z 


Two  Independent  null  vectors  correspond  to  the  multiple  root  X^;  viz.. 


= (0,0,ix  - X ),  = (0,w,u,v)  . 

0^0 


(A-9b) 


A left  null  vector  corresponding  to  X^  Is 


= ((X^  w + A)  (2d  - A:  , - d(X^  + X^)  + ;“^j^w(X^  w + A)  , 


(A-9c) 


V + w + A),  - 7 w + A)), 
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The  standard  form  for  the  compatablllty  equations  (A-8)  Is  to  Introduce 
the  associated  directional  derivatives.  Used  In  this  form  the  boundary 
point  computations  would  be  essentially  as  In  a reference  plane  method  of 
characteristics.  Such  a procedure  Is  complicated  since  It  requires  a 
considerable  amount  of  Interpolation.  The  method  used  herein  eliminates 
this  difficulty  by  considering  the  partial  differential  equations  (A-8) 
directly.  These  equations  are  rewritten  on  the  surfaces  X = 0 and  1 using 
the  boundary  conditions.*  The  resulting  equations,  valid  only  on  X = 0 
and  1,  are  solved  numerically  using  predictor-corrector  methods  similar  to 
those  used  for  Interior  points. 

Wall  Boundary  Points  (X  » 0) 


On  the  boundary  X=0,  u=bw+  (b,/b)v  which  Implies  that  A = 0 on 

z 9 

X = 0 (c.f.,  eqs.  (3,3d)  and  (3.3g)).  Thus  on  X = 0,  6,  > (x  I (since  w > a) 

1 z 

which  Implies  that  X . > 0 and  X <0.  Also  on  X = 0,  X =0.  Note  that  on 

T*  O 

X ■ 0,  X^  corresponds  to  a streamline  since  X = 0 Is  a stream  surface. 

Referring  to  Fig.  (A-1) , X^  corresponds  to  the  characteristic  curve 

X corresponds  to  and  X corresponds  to  G _.  According  to  our  earlier 

— 2 o j 

remarks,  we  exclude  from  further  consideration  the  root  X_. 

We  consider  first  the  compatablllty  condition  (A-8)  with  . 

The  left-hand  side  of  (A-8)  Is,  using  (A-5a)  and  (A-9) , 

- V lf>  - « J * *rlf  ^ 

Note  that  at  the  boundary  X = 0,  we  have  using  the  boundary  condition  and 
(3.3g)  that 

3b  3b  /b 

^z3Z  ^r3Z  r ^^3Z  *’z3Z  3Z  b 3Z^  r ^ 3Z  3Z  ^ 

3b  3b  /b 

where  - and  — depend  only  on  the  given  body  geometry.  Using  the  above, 
dZ  3Z 

we  can  write  the  compatablllty  condition  corresponding  to  X^  at  the 

*Thls  approach  was  originally  suggested  by  Kentzer  (ref.  11). 
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wall,  X = 0,  in  the  form 
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3X 


3X 


[w  --/-  - u ^ - V 


3(X  /r) 


3X 


+ ^ I,  Ifl 


P ^ 


(A- 10) 


The  completely  expanded  form  of  (A-10)  given  by  (3,16)  is  used  to  advance 
the  pressure  on  the  wall. 


(1) 


The  left-hand  side  of  (A-8)  corresponding  to  Si^  = is  given  by 


r/lv  V 3v.  . .1  „ 3u  „ 3v.  , 

^ r^(f>  3Z  ^r  3Z^  ^o  ^r  ^(|)  3X  ^r  3X^  ^ 


On  X=0,  A =0  and  —X.  = - X (b,/b).  Hence,  the  compatibility  condition 
o r <p  r d) 


(1) 


corresponding  to  1 = at  the  wall  can  be  written  as 

A A 


'r(- 


3V„ 


3(b,/b) 


3Z 


)■ 


(A-11) 


where 


V = V + (b  /h)u 
2 O 


(A- 11a) 


The  completely  expanded  form  of  this  equation  is  given  in  (3.18). 

Equation  (A-11)  is  used  to  advance  the  quantity  on  the  wall.  Note 
that  ^2  i‘‘’>  except  for  a factor  involving  only  body  geometry,  a component 
of  velocity  tangent  to  the  wall. 


(2) 


The  compatabllity  equation  corresponding  to  i.  = £•,'  can  be  written, 

* A O 


by  direct  expansion  of  (A-8),  as 


„ + ii  + A ^ ^)  = - B (-^  + ^ — ) 

Sz  2 3Z  ^ ^ 3X  ^ Z 3X  ^ “ Sy  2 3Y  ^ 


0 0 9 

+ u + v^.  The  above  equation  involves  only  derivatives  of 


where  V 

thermodynamic  quantities.  Indeed,  using  (2.2)  and  (A-4) , we  have 
(since  p = p (p ,h) ) 
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dp+^  dV^  = dp  - pdh  = ~ dp  - dp) 

Introducing  tho  entropy,  s,  we  have 


- (4^)  ds  = ^ dp  - dp 


which  with  (A-12)  implies  that  the  compatabillty  equation  can  be  written  as 

3s,, 3s  D^s 

w — + A — = - B — . 

3Z  3X  3Y 

This  equation  expresses,  in  the  computational  space,  that  the  rate  of 
change  of  entropy  on  a streamline  is  zero.  On  the  boundary  X=0,  we 


have  (since  A=0) 


3s  D 3s 
3Z  = - ® W 


Note  that  eqs.  (A-10),  (A-11)  and  (A-13)  can  be  used  to  advance 
p,  V2,  and  s at  the  wall  points.  From  the  values  of  p and  s,  the  quantities 
p and  h can  be  determined.  The  magnitude  of  the  velocity  vector  can  then 
be  determined  using  (2.2).  The  quantity  V2  and  the  boundary  condition 
then  give  the  velocity  components.  This  procedure  is  described  in  detail 
in  section  3.4. 

Shock  Boundary  Points  (X  = 1) 


On  the  boundary  X = 1, 


A=(-c  w+u-  c v/c)X  = - V V X 
' z <t>  r n s r 

(c.f.,  (3.3d),  (3.3g)).  Since  > 0,  It  follows  from  (4.9a)  that 

X >0.  On  X - 1,  the  roots  X of  (A-6)  are  (see  (A-9a)) 
o ± 

(wV  V - a^c  )X  ± a^  B, 

X = a...  s 1 

''+  2 2 
w - a 
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where 

2 r 2222292 

^ T f ® ^ - a )(a  - V^)]. 

14ns  z s n 

a 

Since  w > a and  shock  theory  gives  V < a,  It  follows  that 

n 

2 2 

a 6,  > X CwV  V - a c ) > 0.  Hence  > 0 and  X ^ 0 (equality  when 
Irns  z + - ' ^ 

V = a which  corresponds  to  zero  shock  strength).  Referring  to  Fig.  (A“l) > 
n 

and  X^  correspond  to  characteristic  curves  of  the  type  Cj  , and  thus, 
by  our  earlier  remarks,  we  exclude  these  roots  from  further  consideration. 

The  compatablllty  condition  (A-8)  with  “ 8.^  can  be  written  using 
(A-5a) , (A-7)  and  (A-9b)  as 


®l  Iz 


K 


(w 


3Z 


-8.  ((?(.  -B  ) 

p A- 


(A-14) 


Note  that  (A-3) , (A-5a) , and  (3.3c)  Imply  that 

=- 

Consider  now  the  left  hand  side  of  (A-14)  evaluated  on  the  surface  X = 1. 
Since  the  Ranklne-Hugonlot  conditions  are  satisfied  Identically  on  X * 1, 
these  relations  can  be  differentiated  with  respect  to  Z In  order  to  obtain 
expressions  for  and  on  X = 1,  Substitution  of  these 

expressions  Into  (A-14)  yields  a partial  differential  equation  for  the 
shock  slopes  c and  c,.  We  summarize  the  development  of  this  equation 

Z 

here.  From  the  shock  relations  (3.9),  we  have  on  X = 1 that 

w=w  -(V  -V)e, ,u=u  +(V  -V)e-,  and  v = v - (V  - V )e. 

oo'n  n l * n n2  ® 

00  OO  0® 

where  e = c /v  , e„  = 1/v  , and  e = c./(cv  ).  Differentiating  these 
IzsZ  s lips 

with  respect  to  Z,  we  obtain  that  on  X = 1 
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» n 3V  3e. 

m _ ( ^ - — n.)e  - (V  - V ) — i- 

3Z  3Z  3Z  ■'  1 ^ n n"'  3Z 

3V  “ 

. 3u  n 3V  3e- 

3Z  3Z  '■  3Z  3Z  ^ 2 ''  n 3Z 

00 

3V 

^ 3V  ‘^''n  3V 

— = — - - ( —)  e - (V  - V ) e 

3Z  3Z  '•  3Z  3Z  ■'  3 ''  n n''  3 


(A-15a) 


Note  that  in  the  above 


00  9(f)  00 

' * V and  

az  « az  az 


(A-15b) 


since  V ® w_  e-  - u_  e^,  we  have  that 

n^  ”1  Z j 


3Z  ''oo  3Z  “ 3Z  "^00  3Z  “ ®2  ®3^  3Z 


(A-15c) 


From  the  shock  relations  (2.7),  we  have  that  p * p + V P^(V  - V ) 

“ n “ n n 
00  00 

which  Implies  that  on  X = 1 


. 3V 

^ = Poo  " V 1z~  \ ^ 3Z  ■ 3Z 


(A-16) 


In  order  to  obtain  an  expression  for  g^»  we  differentiate  the  equation 
of  state  p = p(h,p)  to  obtain 


i£  . ^ + S'  ^ 

3Z  ^1  3Z  ‘•2  3Z 


(A-17) 


Differentiating  the  first  and  last  equations  in  (2.7),  we  obtain  for 

points  on  X = 1 that 

^^n  3V 

i ■ ».  fir  - 


ii.v  -i-v  ^ 

3Z  n 3Z  n 3Z 
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Substituting  these  and  (A-16)  into  (A-17)  and  using  (A-4),  we  obtain 


® n 

3Z  “ 3Z 


/ (V  - V ) 2 + -^  + (—  - i)  I 3V 

Wfi  1“ 


Finally,  we  have  that 


3Z  ®1^  3Z  1®3  3Z  J ®2 

3Z  |®1  3Z  ®3  3Z  J®2 

!fi_  r !fz  ..  2 

3Z  [®1®3  3Z  ®3^  3Z  J 


Substituting  (A-15a)  and  (A-16)  into  (A-14)  and  using  (A-15c) , (A-18) 

8V  3^n^  3e 

and  (A-19)  to  eliminate  the  terms  '^"2" » (i“l»2,3),  we  obtain  from 

the  compatablllty  condition  (A-14)  a partial  differential  equation  of  the 


3(c^/c) 


r £L  + r 

1 3Z  2 3Z 


The  quantities  C, , C„,  and  K appearing  in  (A-20)  are  given  in 
1 ^ s 

section  3.3. 


In  addition  to  (A-20) , we  also  have 


= c + C 
3Z  z (J>  3Z 


3c.  9c  3c 

_ Y — 2-  + Y — ^ = 0 
3Z  <|i  3Y  z 3Y 
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The  first  equation  (A-21)  Is  the  chain  rule  for  the  Z derivative  of  the 
shock  shape  function  c(t>,z).  The  second  equation  (A-22)  expresses  through 


the  chain  rule  that  ^ . IThen  C,  is  nonzero  the  equations 

(A-20)  - (A-22)  are  formally  a hyperbolic  system  with  Z the  time-like 

direction  and,  therefore,  can  be  numerically  solved  using  a predictor- 

corrector  method  to  determine  c,  c , and  c, . With  the  shock  geometry 

z 9 u ^ 

determined,  the  Ranklne-Hugonlot  conditions  determine  all  the  flow 
variables  on  X = 1.  The  procedure  is  described  in  detail  in  section  3.3. 

The  above  procedure  requires  that  the  coefficient  does  not  change 
sign  in  the  calculation.  We  now  show  that  for  a perfect  gas  > 0 when 
w t a.^  The  proof  uses  the  definitions  following  (3.9c)  (see  sec.  3.3) 
and  the  shock  relations  (2.7).  Consider  first  the  case  of  a finite 


3^c  3^c 


strength  shock;  l.e.,  V > V„,  a>V,p>p,p>p.  Substituting 

nn  n ® 

00 

(2.7)  and  = - p/h  into  the  definition  of  Aq,  we  obtain 


(P  - P„)  (V^  + a p„/p) 

,r2  / 2 IIT 

0 V (a  - V ) 

«>  n_  n 


[perf ] 


This  implies  that  Aq  > 0 and  it  follows  from  the  definition  of  A^^  that 

A,  > p(v  w - c V )A_  . 

1 s ” z n 0 

00 

From  the  shock  relations  and  w ^ a,  we  have  that 


V w - c V 
s " z n 


V w-c  V iva-c  V >0. 
s z n s z n 


"sine  (A-24)  and  (A-25)  in  the  definition  of  we  obtain 

s ^r(v  w - c V )^  A-  - (p  - p ) (v^  - c^))/v^ 
I s Of  z n 0 <»  s z s 


• fh-it  the  significance  of  Cj^  > 0 for  the  real  gas  case  is  the 
■ r perfect  gas  but  this  fact  has  not  been  established  at  this 
e ' ,al  calculations,  the  value  of  Ci  is  monitored  at  all  points 
' . Tf  a change  of  sign  is  detected  the  calculation  is 
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Note  that  since  u - c v/c  = c w - V v , 

((i  z ns 

^2  2 _ , „ .2  ,2  2.  , 2 ,,2, 

=(vw-c  V)  -(v  -c)(a  -V) 
0 s z n s z n 


which  Implies  that 

(v  w -c  V )^=(vw-c  (v^  - c^) (a^  - V^) , 


z n 


(/ 


UslnR  (A-27),  (A-23),  (A-26),  and  p = V /V  , we  obtain 

n n’ 


(y2  _ g2^(p  _ pj 

p V V 
s “ n n 


V„  V + a 
n n 


P«  ) 

V V > 

P " 


> 0 


which  is  the  desired  result.  Consider  now  the  case  of  a weak  shock;  i.e. 


n n 


= a = a^,  p = p^,  p = p^.  The  quantity  A^  can  be  rewritten 


using  (A-23)  and  the  first  two  equations  in  (3.12)  (with  y * P = P ) as 


2(V^  + a ) 


[perf] 


which  implies  that  Aq  = A/y+1  for  V = a„.  Since  A^  > 0 and 

00 

(v  w - c V ) > 0,  it  follows  directly  from  the  definitions  that 
s “ z n •' 


A^  > 0 and  hence  > 0. 


^-27) 
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APPENDIX  B 
SYMMETRY  CONDITIONS 

In  this  appendix,  the  symmetry  conditions  (3.21)  and  (3.22)  used  in 
the  symmetric  problem  are  derived.  Recall  that  in  this  problem  all  flow 
variables  are  even  functions  of  <(i  about  <)>  = 0 and  it  in  the  physical  space 
except  V which  is  an  odd  function  of  (j)  about  ((>  = ()  and  it.  Also,  the  body 
geometry  and  shock  geometry  functions  are  even  functions  of  iji  about  0 and 
IT.  In  this  appendix,  <(i*  will  denote  either  0 or  it.  To  avoid  any  confusion 
we  specify  that:  a function  u(r,<j>,z)  is  even  about  i)>  if  and  only  if 

+T,z)  = u(r,<|)  -T,z)  for  all  x such  that  4>  + x is  in  the  domain  of 

definition  of  u;  a function  u(r,()i,z)  is  odd  about  $ if  and  only  if 

it  it 

u(r,((>  +T,z)  = - u(r,()>  -T,z). 

Consider  first  the  effect  of  the  mapping  (3.1)  on  a quantity  u which 
in  the  physical  plane  is  given  by  an  even  (or  odd)  function  of  if  about 

iC 

if  = (f  . Let  u be  given  by  u(r,if,z)  in  the  physical  space  and  u(x,y,z)  in 

it 

the  (x,y,"z)  space;  further,  let  y = <f  /if^  (i.e.,  y = 0 or  1) . Note 

* 

that  from  (3.1),  x is  an  even  function  of  if  about  if  = if  for  fixed  r and  z. 

Also,  inverting  (3.1),  we  have 

r(x,y,z)  = x[c(z,if^y)  - b(z,if^y)]  + b(z,if^y) 

^ - ■■  

which  is  an  even  function  of  y about  y for  fixed  x,y.  It  therefore 
follows  from 

u(r,if,z)  = u(x(r,if  ,z)  ,if/if  ,z) 

o 

and 

u(x,y,z)  = u(r(x,y,z)  ,yif^,z) 

* 

that  u(r,if,z)  is  an  even  (odd)  function  of  if  about  if  = if  for  fixed  r,z 

— a>r  — — 

if  and  only  if  u(x,y,z)  is  an  even  (odd)  function  of  y about  y for  fixed  x,z. 
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Consider  now  the  quantity  u given  In  the  computational  space  (X,Y,Z) 
by  the  function  U(X,Y,Z).  Note  that  U(X,Y,Z)  - u(f(X,Y,Z),  g(Y,Z),Z). 

For  any  fixed  Z,  let  Y denote  the  value  of  Y such  that  y - g(Y  ,Z) 

•k  A 

(l.e.,  Y Is  0 or  1) . The  Taylor  development  of  U(X,Y,Z)  about  (X,Y  ,Z) 
where  X and  Z are  fixed  gives 

U(X,Y*±AY,Z)  - U(X,Y*,Z)  ± AY  U^(X,Y*,Z) 

+ Uyy(X,Y*,Z)  ± Uyyy(X,Y*,Z)  + 0(AY)\ 

Adding  and  subtracting  the  above  expressions,  we  obtain 

U(X,Y*±AY,Z)  - U(X,yVy,Z)  = ±2  AY  Uy(X,Y*,Z)  + 0(AY)^  (B.l) 

and 

U(X,Y*±AY,Z)  + U(X,Y*:pAY,Z)  =2  U(X,Y*,Z)  + AY2Uyy(X,Y*,Z) 

H-  OCAY)**.  (B.2) 

For  use  In  the  above  we  have,  by  the  chain  rule,  that 

and 

■^Vyy+Vyy 

k 

Suppose  that  u(r,c(),z)  Is  an  even  function  of  (j>  about  (p  . By  our 
previous  remarks.  It  follows  that  u(x,y,z)  Is  an  even  function  of  y 

—A  _ _*  — •/!  — 

about  y . Since  u Is  even  about  y , we  have  that  u_ (x,y  ,z)  =0.  Also, 

k k 

If  we  assume  that  fY(X,Y  ,Z)  = 0,  It  follows  from  (B.3)  that  U^(X,Y  ,Z)  = 0. 

This  Implies,  using  (B.l),  that 

U(X,Y*±AY,Z)  = U(X,Y%AY,Z)  + 0(AY)3 
which  Is  the  same  as  (3.21). 
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Suppose  now  that  u(r,<(i,z)  is  an  odd  function  of  about  (f  . By 

our  previous  remarks,  u(x,y,z)  is  an  odd  function  of  y about  y . Hence, 

it  follows  that 

u(x,y*,z)  = u-  -(x,y*,i)  = 0. 

Since  the  above  holds  for  all  x,  we  also  have  that  u_(x,y  ,z)  = u (x  v 

If  fy(X,Y  ,Z)  = 0,  it  follows  from  (B.4)  that 

Uyy(X,Y*,Z)  = ^(x,y*,I)gY^(Y*,Z) 

and  from  (B.3)  that 

u^(x,V*,I)  = UY(X,Y*,Z)/gY(Y*,Z) 
since  U(X,Y  ,Z)  = 0,  it  follows  using  (B.2)  that 

U(X,Y*±AY,Z)  + U(X,Y*4:AY,Z)  = 

AY2uY(X,Y*,Z)gYY(Y*,Z)/gY(Y*,Z)  + OCAY)** 
Using  (B.l)  to  evaluate  in  the  above,  we  obtain 

U(X,Y*±AY,Z)[2jAYgYY(Y*,Z)/gY(Y*,Z)]  = 

-U(X,Y*±AY,Z)[2±AYgYY(Y*,Z)/gY(Y*,Z)]  + 0(aY) 

which  is  the  same  as  (3.22). 
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APPENDIX  C 
CFL  CONDITIONS 


In  this  appendix,  we  derive  a necessary  stability  condition  used 
for  determining  the  step  size  AZ  associated  with  a given  computational 
mesh  AX, AY.  The  derivation  is  in  the  geometric  spirit  of  CFL  and 
consists  of  comparing  the  domain  of  dependence*  of  the  difference  equations, 
^ , to  the  domain  of  dependence  of  the  partial  differential  equations, 
c0p  j e • Following  vCFL,  it  is  necessary  to  restrict  the  largest  value 
of  AZ  so  that 


"'•I' 

for  all  computational  points.  'For  the  quasl-linear  sysTem  of  hyperbolic 
equations  considered  here  this  condition  is  generally  regarded  as  a 
necessary  (hut  not  always  sufficient)  condition  for  numerical  stability. 
Indeed,  it  has  been  observed  chat  the  MacCormack  scheme  exhibits  numerical 
instability  for  particular  first  order  systems  even  when  a geometric 
CFL  stability  condition  is  obeyed  (ref.  12).  For  our  system  no  such 
instabilities  have  ever  been  demonstrated  nor  observed  in  calculations. 


*In  this  appendix,  the  domain  of  dependence  of  a point,  0,  with  Z 
coordinate  Z + AZ , is  understood  to  be  the  smallest  closed  region  of 
the  plane  Z § Z , such  that  the  initial  data  outside  of  3'  do  not 
Influence  the  solution  at  0. 
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Consider  an  arbitrary  Interior  computational  point,  0,  with 
coordinates  (Z^  + AZ,  X^,  • The  domain  of  dependence  of  0 for  the 

finite  difference  schemes  given  by  (3.6a)  and  (3.6b)  depends  on  the 
parameter  J (■  0 or  1) . These  are  depicted  In  Fig.  C-1.  The  dots  In  the 
figures  represent  the  only  computational  points  which  can  Influence  the 
numerical  solution  at  0 for  one  complete  (predictor  and  corrector) 
step.  In  stability  considerations.  It  Is  necessary  to  consider  the 
limit  for  successive  mesh  requirements  with  AX/AZ  and  AY/AZ  held  fixed. 

In  this  limit,  the  points  In  and  on  the  boundary  of  the  shaded  regions 
are  the  only  ones  that  can  Influence  the  numerical  solution  at  0. 

Consider  now  the  domain  of  dependence  of  0 for  the  system  of  partial 
differential  equations  In  the  computational  space,  see  (3.3).  For  the 
purposes  of  stability  analysis  It  Is  sufficient  to  consider  a quasi-llnear 
system  equivalent  to  (3.3)  given  by 

where 

Q •= 

In  the  above, 

A.  C[H).  B . C(x^  (|i,  * i|i)  * X,  [||n. 

c - OIY^  [||i  + 
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h- 


where  [^] , [^] , and  [-g^]  are  Jacobian  matrices  and  €)  is  the 


non-singular  matrix  given  in  Appendix  A.  The  matrices  ^ and  IB  are 
given  by  (A-5a)  and  (A-5b)  respectively;  the  matrix  C is  given  by 


c = 


pB 


PB 


- Y 
r (J) 


pB 


The  Inhomogeneous  term  ^ is  not  material  to  the  present  analysis  and 
will  not  be  given.  The  domain  of  dependence  of  the  system  (3.3)  is  the 
same  as  that  of  (C.2).  The  domain  of  dependence  of  0 for  the  system 
(C.2)  is  contained  in  the  closed  region  formed  by  the  Intersection  of 
the  characteristic  conoid  with  vertex  at  0 and  the  plane  Z = 

(c.f.;  ref.  10,  pp.  649-652). 

The  pertinent  facts  concerning  the  geometry  of  characteristic 
conoids  associated  with  systems  of  the  type  (C.2)  will  be  briefly 
reviewed  here;  for  a more  detailed  explanation  see  ref.  10  pp.  577-599. 
The  characteristic  conoid  with  vertex  0 Is  the  envelope  of  all 
characteristic  surfaces  through  0.  A surface  il;(Z,X,Y)  = 0 is 
characteristic  at  a point  if  its  normal  at  the  point  satisfies  the 
characteristic  condition 


Q;  X,Y,Z)  = det(Xj^^  + + X^t)  = 0 (C.3) 
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where  , X^  = — , and  X^  - — . The  surface  of  the  characteristic 

conoid  is  generated  by  curves,  called  rays  or  bicharacteristics  which 
are  the  lines  of  contact  between  the  characteristic  surfaces  and  the 
conoid  they  envelope.  These  curves,  or  rays,  are  given  by  the  ordinary 
differential  equations 


i 


^ = iR  = aH.  ^ 

ds  3Xj  ’ ds  ax^’  ds  3X^ 


where  s is  a parameter.  Each  ray  through  0 is  determined  by  selecting 
real  values  for  X2  and  X^  and  determining  X^  by  satisfying  the  character- 
istic condition  (C.3)  at  0.  In  general,  when  A , 15  » and  C are  not 
constant,  X^,  X^,  and  X^  vary  along  the  ray.  When  (C.2)  is  a quasi-linear 
system  like  (C.2)  the  rays,  conoids,  and  domains  of  dependence  will 
depend  on  the  solution  vector  Q.  In  the  case  when  the  coefficient 
matrices  A , ^ , and  € are  constant  Xj^,  X^,  and  X^  satisfying  (C.3)  are 
constant  along  each  ray.  The  rays  generating  the  conoid  are  straight 
lines  since  the  right  hand  sides  of  (C.4)  are  constant.  The  characteristic 
surfaces  in  this  case  are  hyperplanes  and  cones  formed  by  their  envelopes. 
In  the  present  analysis  AZ,AX,AY  are  assumed  to  be  small,  thus  the 

domain  of  dependence  of  0 = (Z  + AZ,X  ,Y  ) can  be  approximated  by 

000 

considering  the  matrices  A » IB  , and  C as  constants  with  elements 

evaluated  at  the  point  (Z  ,X  ,Y  ).  For  the  remainder  of  this  appendix, 

000 

it  will  be  understood  without  changing  notation  that  all  quantities 
appearing  in  these  matrices  are  held  fixed  at  their  values  at  (Z^,X^,Y^). 


! i 


i j 
■ ! 


i 5 


! 

i 


■3 

i 


89 


NSWC/WOL/TR  77-28 


Making  the  substitutions  Indicated  above,  the  characteristic  condition 
(C.3)  for  the  system  of  equations  (C.2)  Is 


where 


= X^w  + X2A  + X^B 


- '<‘1  * 's’.''  + >2  ’'r  * »2%  * S’'*'" 

The  ray  cone  therefore  has  two  sheets,  one  corresponding  to  = 0 and 
one  corresponding  to  “ 0.  The  rays  generating  the  sheet  corresponding 
to  = 0 are  given,  using  (C.4),  by 

dZ  dX  . dY  ^ 

ds  ds  “ ds  “ 

Hence  the  sheet  corresponding  to  ^ = 0 Is  a degenerate  cone  consisting 

of  a single  ray  through  0.  The  domain  of  dependence  for  this  sheet  Is  a 

point  In  the  plane  Z = Z with  coordinates  X = X - (A/W)AZ  and 

o o 

Y = Y - (B/W)AZ.  This  ray  corresponds  In  the  physical  space  (2,4i,r) 
o 

to  a streamline.  The  sheet  corresponding  to  ® ® true  cone 

which  corresponds  In  physical  space  to  the  Mach  cone.**  In  physical 


>2  1 1 2 

» -;r]a 


**A  characteristic  surface  ^(Z,X,Y)  = 0 can  be  represented  by  ^(z,r,0)  = 0 
In  physical  space.  By  the  chain  rule 

= X,  + X^  X + X,  Y , = X„  X , and  = X,  X^  + X Y^ 

z 1 2z  3z  r 2r  (p  2 p 3 p 

since  Xj^  = ^2  ~ '^X  ^3  ~ '^Y’  follows  that 

'^2^^r^2’^3^  = (V?-q)^  - !V^|V  = 0 

where  q Is  the  velocity  vector.  This  equation  Indicates  that  In  (z,r,4i) 
space  the  coslni.  of  the  angle  between  the  streamline  and  the  normals  to 
the  characteristic  surfaces  enveloping  the  cone  associated  with 
= 0 Is  ± a/|q*|  = 1 M-1. 
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space  the  streamline  through  the  Mach  cone  vertex  is  interior  to  the 
cone.  Since  a continuous  transformation  cannot  change  this  situation, 
it  follows  that  in  the  computational  space  the  cone  corresponding  to 
2 “ 0 contains  the  ray  corresponding  to  ^ = 0.  Therefore  the  domain 
of  dependence  of  (C.2)  is  determined  entirely  by  the  sheet  = 0. 

The  CFL  stability  condition  for  each  of  the  MacCormack  schemes  is 
Illustrated  in  Fig.  C-2.  The  shaded  area  is  the  region  formed  by  the 
Intersection  on  the  plane  Z = of  the  cone  with  vertex  at  0 corresponding 
to  2 “ Condition  (C.l)  for  j = 0 or  1 is  satisfied  if  and  only  if 

max  ()l,)  < AX,  max  — AXAy/h/aX^  + AY^  (C.6 

1=1,2  ^ 1=3,4  ^ 1=5,6  ^ 

In  the  above,  (1=1, ••*,6)  are  projections  of  the  base  of  the  cone  in 

various  directions  as  indicated  in  Fig.  C-2.  These  distances  depend  on 
the  value  of  AZ  (recall  that  AX  and  AY  are  assumed  fixed  in  the  present 
analysis) . 

Consider  now  the  determination  of  the  projection  of  the  cone's  base 

on  any  directed  line  in  the  Z = Z^  plane  with,  say,  X and  Y direction 

numbers  a and  a , respectively.  Since  any  characteristic  plane 
X y 

i|/(Z,X,Y)  = 0 through  0 xs  tangent  to  the  cone,  the  particular  ones  which 


have  normals  with  'I'x  “ ^2  ~ '^x  '^Y  * ^3  * '^y  plane 

Z = Z on  lines  which  are  both  tangent  to  the  cone's  base  and  normal  to  the 
o 

direction  (a  ,a  ).  The  situation  is  shown  in  Fig.  C-3.  The  point  of 
X y 

tangency,  Q,  is  the  intersection  on  the  Z = Z^  plane  of  the  blcharacteristlc 

ray  with  X.  = a , X„  = a , and  X,  = o where  a is  the  solution  of 
^ 2 x’  3 y 1 z z 
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w > a,  there  are  precisely  two  distinct  solutions 
of  this  equation.  The  two  values  of  determine  two  rays  and,  hence,  two 
points  of  tangency  for  each  direction  (o  ,o  ) . The  X,Y  coordinates  of  Q 
for  each  value  of  are  determined  by  Integrating  (C-^)  from  Z =»  + AZ 


to  Z = Z ; l.e, , 
o ’ 


X - X 


3^2 


IHh 

/ 3^1 


AZ,  Y - Y 


'3)^2 


3X, 


/ 3^1 


AZ 


where  (1*1, 2, 3)  are  evaluated  at  X^^  = o^,  X^  = o^,  X^  = o^.  The 

projected  distance  il  In  Fig.  (C.3),  Is  given  by 


J,=  |o  (X-X)+o  (Y-Y  )|/l/o^  + 

I X V q'  y V 1/  W 


Since  ^ (X  ,X  ,X  ) Is  homogeneous  in  X ,X-,X  It  follows  that 

^^2  ^N2  ^^2  -J 

H 3^  ^2  ^ S ^ ° therefore 

follows  that 


+ o 


(C.7) 


The  distances  and  are  projections  on  the  direction 

O'  = 1,  0 =0  (c.f..  Fig.  C-2).  Solving  iH *1,0)  = 0,  we  obtain 
X y 2 2 

using  (C-7)  that 


‘'1,2 


X a^  - AW  ± a \/(.A  - W X )^  + (W^  - a^)  (X^  + ^ X^)  j 
z V z r 2 ())''  I 


AZ 


/ ? 2. 

(w  - a ) 


Substituting  the  above  into  the  first  inequality  in  (C.6),  we  obtain 


AZ  < ^ — I-S_l  AX 


(C.8) 
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where  is  given  in  section  3.6.  The  distances  and  are  projections 

on  the  direction  o = 0,  o =1.  Hence  i.  and  I,  are  given  by  (C-7)  with 
X y 3 4 

a a solution  of  n ^(a  ,0,1)  ■=  0;  i.e., 
z 2 z 

il,  , = Y a^  - wB  ± av/ (Y^/r^)  (w^  + v^  - a^)  I - 

3.4  z V _ ^2^ 

Substituting  this  into  the  second  inequality  in  (C.6),  we  obtain 

Z ^ ~ ^ ^ AX  (C.9) 

where  Pj  given  in  section  3,6.  The  distances  and  ig  are  projections 

on  the  direction  a = AY,  a - - (-1)^  AX.  Hence  and  are  given  by 
X y 5 6 

(C-7)  with  a a solution  of  , AY,  - (-1)^  AX)  = 0;  i.e.. 


^ —===M^^ 5(wB  - Y a^)  - (wA  - X a^) 

5*6  (VaX^  + AY^  (w2  - ah] 


± ay(w^  - ahl^l  ~ 


where 


« - (-1)^(AX/AY) 


Substituting  this  into  the  last  inequality  in  (C.6),  we  obtain 


AZ  ^ (y’l  - ^b.  AX 
»^3 


(C.IO) 


where  is  given  in  section  3.6. 
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} 

I 

i . 


[ 


For  any  interior  computational  point  (Z  + AZ,  X , Y ),  the 

o o o 

largest  value  of  AZ  for  which  the  CFL  condition  (C.l)  is  satisfied  is 

AZ  *=  I (w^  - a^)/max(Uj^,  ^3)!  (C.ll) 

where  the  terms  in  the  bracket  are  evaluated  at  (Z  , X , Y ) . It  remains 

000 

now  to  consider  the  points  on  the  boundary  of  the  computational  domain. 

The  computational  scheme  for  points  on  the  boundaries  Y «■  0 and  Y = 1 
which  are  not  on  X = 0 or  X - 1 is  essentially  the  same  as  the  Interior 
point  scheme  (c.f,,  section  3.5);  hence,  the  CFL  condition  for  such  points 
is  the  same  as  for  interior  points.  The  domain  of  dependence  of  the 
partial  differential  equations  for  points  on  the  boundaries  X = 0 and 
X • 1 Is  essentially  as  described  above  for  interior  points  except  that 
only  the  portion  of  the  characteristic  cone’s  base  lying  In  0 i X 1 is 
considered.  The  domain  of  dependence  of  the  difference  schemes  used  on 
the  boundaries  X « 0 and  X = 1 are  illustrated  in  Fig.  C-4  and  C-5.  Note 
that  at  the  boundary  X = 0 the  domain  of  dependence  of  the  scheme  when 
J ■ 0 is  used  for  interior  points  depends  on  whether  the  second  order 
option  (c.f.,  eq.  (3.19))  is  used.  Comparing  Figs.  C-4  and  C-5  with  C-2, 
we  see  that  the  CFL  condition  (C.l)  for  the  points  on  the  boundaries  X * 0 or  1 
is  satisfied  if  AZ  is  chosen  as  If  these  points  were  interior  points 
(l.e.,  using  (C.ll)).  Therefore  in  order  to  insure  that  (C.l)  is  satisfied 
for  all  the  computational  points,  we  take  the  smallest  AZ  obtained  from 
(C.ll). 


I 

I J ■ 

j ; 


J = 0 , 1 st  ordlfir 


^ = 0,2h4.  ard€Y~ 
j = I J s f ^ 2 order 


Fig.  C-4.  Domains  of  dependence  of  numerical  scheme  for  wall 
points  (X  = 0) 


Fig.  C-5.  Domain  of  dependence  of  numerical  scheme  for  bow  shock 
points  (X  »■  1) 
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7.  GENERAL  REMARKS 

This  part  of  the  report  contains  a description  of  a FORTRAN  program 
based  on  the  numerical  methods  discussed  In  Part  I. 

The  program  consists  of  a main  or  executive  routine,  referred  to 
as  MAIN*,  and  several  subroutines.  MAIN  contains  the  complete  program 
structure  and  controls  all  aspects  of  the  calculation.  Most  of  the 
actual  operations,  however,  are  carried  out  In  the  subroutines  many  of 
which  are  called  directly  from  MAIN.  For  the  purpose  of  discussion, 
the  subroutines  are  grouped  Into  three  functional  types;  subroutines  used 
in  the  flow  field  calculation  (see  Sec.  10),  auxiliary  subroutines  (see 
Sec.  11),  and  Input-output  subroutines  (see  Sec.  12).  As  a general  rule, 
the  transfer  of  arguments  between  the  various  subroutines  and  MAIN  Is 
via  a COMMON  block  of  variables.  A table  (see  Sec.  8)  is  included  which 
gives  for  each  variable  In  COMMON,  Its  description  in  terms  of  Part  I 
notation  (where  possible),  the  primary  routine  in  which  it  is  defined, 
and  the  name  of  its  COMMON  block.  The  two  COMMON  blocks  CSERCH  and  SAVRG, 
being  used  only  in  the  real  gas  subroutines  RGAS,  HRGAS,  and  SERCH,  are 
not  included  In  this  table.  MAIN  and  all  subroutines  are  described  in 
Sections  9-12  which  follow.  These  descriptions  are  intended  to  serve  as 
a guide  to  the  use  of  the  FORTRAN  listings  which  can  be  found  In 
Appendix  D. 

In  the  following  sections,  we  will  occasionally  refer  to  the  second 
volume  of  this  work.**  This  will  be  referred  to  herein  as  the  "User’s 
Manual". 

*To  distinguish  between  subroutine  names  and  FORTRAN  arrays  or  variable 
names,  subroutine  names  are  capitalized  and  underlined. 

**Solomon,  J.  M. , Ciment,  M. , Ferguson,  R.  E.,  Bell,  J.  B.,  and  Wardlaw,  A.  B. , 
A Program  for  Computing  Steady  Inviscid  Three-Dimensional  Supersonic  Flow 
on  Reentry  Vehicles;  Vol.  II:  User’s  Manual,  NSWC/WOL/TR  77-32 
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8.  COMMON 

FORTRAN 

Symbol 

Description  (In  Part  I notation) 

Principal 

Defining 

Routine 

Common 

Block 

ACH 

M 

00 

INPUT 

COUT 

ALNS 

= ACONE(l),  see  fig.  8 of 
User's  Manual 

BODYR 

CBENT 

ASQ(N,M) 

a^(X  ,Y  ) 
n m 

DECODE 

BLANK 

ATTA 

a 

INPUT 

COUT 

AUQN 

parameter  used  for  bent  cone 
calcs. 

BODY 

BODYR 

CBENT 

AX 

a,  sound  speed 

RGAS 

RGASS 

A2(J) 

Jl  + hi  + (b./b)^  = V , (1)^ 

BODYP 

BLK03’’'"' 

A3(J) 

[b. ,/b  - (b^/b)2]Y  , (1) 

v?  <)>  <P 

BODYP 

BLK03 

A4(J) 

b^^/b  - (Y,/Y^)[(b. ,/b)  - (b./b)^] 

BODYP 

BLK03 

- (b  /b)(b./b),  (1) 

Z ^ 

A5(J) 

BODYP 

BLK03 

A7(J) 

">.z  - 

BODYP 

BLK03 

B(M) 

BODY 

CBODY 

BETA 

parameter  used  for  bent  cone 
calcs. 

BODY 

CBENT 

BJ 

-6 

MAIN 

CEVAL 

BPHI (M) 

(p  m 

BODY 

CBODY 

BPHIO(M) 

b,(Y  ) at  previous  step 
<p  m 

MAIN 

C BODYP 

BPHIT (J) 

temporary  storage  for  b.,  (1) 

BODYP 

CBODYP 

BPHPHI 

BODY 

CBODY 

BPHPHO (M) 

b,,(Y  ) at  previous  step 
0<p  in 

MAIN 

CBODYP 

^Numbers  in  parenthesis  refer  to  the  remarks  appearing  at  the  end  on  this 
list. 

■^■^The  symbol  0 here  Is  used  to  denote  zero. 
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r 


f 


f 

I 


h- 


FORTRAN 

Symbol 

Description  (in  Part  I notation) 

Principal 

Defining 

Routine 

Common 

Block 

BPHPHT(J) 

temporary  storage  for  b. (1) 

MAIN 

CBODYP 

BSN 

sin(ALNS) 

BODYR 

CBENT 

BZ  (M) 

b,<M) 

BODY 

CBODY 

BZO(M) 

b (M)  at  previous  step 
z 

MAIN 

CBODYP 

BZPHI 

^ A 

z9 

BODY 

CBODY 

BZPHIO(M) 

b .(Y  ) at  previous  step 
z9  m 

MAIN 

CBODYP 

BZPHIT(J) 

temporary  storage  for  b . , (1) 

Z9 

BODYP 

CBODYP 

BZT(J) 

temporary  storage  for  b^,  (1) 

BODYP 

CBODYP 

BZZ 

b 

zz 

BODY 

CBODY 

BZZO(M) 

b (Y  ) at  previous  step 
zz  m 

MAIN 

CBODYP 

BZZT(J) 

temporary  storage  for 

BODYP 

CBODYP 

C(M) 

MAIN 

blank 

CE(I,N,L) 

E.  (2)  «tid  (3) 

EVAL 

BLK01 

CENUF 

parameter  used  for  bent  cone  calcs. 

INPUT 

CBENT 

CFd.N.L) 

F,  (2)  and  (3) 

EVAL 

BLK01 

CFL 

stability  factor;  i.e.. 

EVAL 

ceval 

max  {p/(w^  - a^)} 

CG(I,N,J) 

G,  (1)  and  (2) 

EVAL, 

EVALSY 

BLK01 

COSBN 

COS (THETABN) 

BODYR 

CBENT 

COSPHKM) 

cos  (9(Y  )) 
in 

MAIN 

C^DY 

CPHI (M) 

c/Y  ) or  If  (Y  ) 
9 m 3Y  m 

MAIN 

blank 

CPHIY(J) 

temporary  storage  for  c^,  (1) 

EVAL, 

EVALSY, 

EVALPR 

BLK01 
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FORTRAN 

Symbol 

Description  fin  Part  I notation) 

Principal 

Defining 

Routine 

Coimnon 

Block 

CU(I,N,M); 

N^«1,NC 

U(X  ,Y  ),  (2) 
n m 

MAIN 

BLANK 

CU(I,1.M) 

P at  wall  (I  = 1);  s at  wall 
(1=2);  at  wall  (I  = 3) 

MAIN 

BLANK 

CUd.NC.M) 

c (1=1),  (1=2),  (1-3) 

MAIN 

BLANK 

CUP(I,N,M) ; 
N^1,NC 

U*(X  ,Y  ),  (2)  and  (4) 
n ni 

MAIN 

BLANK 

CUP(I.l.M) 

A 

P at  wall  (I  = 1) ; s at  wall 
(1=2);  V*  at  wall  (I  = 3).  (4) 

MAIN 

BLANK 

CUP(I,NC,M) 

c*  (I-l),  c*  (1=2),  c*  (1=3),  (4) 

Z 9> 

MAIN 

BLANK 

CZ(M) 

c (Y  ) 
z m 

DECODE 

BLANK 

CZY  (J) 

temporary  storage  for  c^,  (1) 

EVAL, 
EVALSY , 
EVALPR 

BLK01 

D(N,M) 

n m 

EVAL 

BLANK 

DCPriZ 

8Z 

SHOCK 

C SHOCK 

DCZ 

3c 

3Z 

3c 

SHOCK 

CSHOCK 

DCZZ 

z 

3Z 

SHOCK 

C SHOCK 

DDX 

1/AX 

MAIN 

BLK(»4 

DDY 

1/AY 

MAIN 

BLK04 

DEL  1 1 

parameter  used  for  bent  cone 
calcs. 

INPUT 

CBENT 

DELTA 

parameter  used  for  bent  cone 
calcs. 

BODY 

CBENT 

DELZ 

Intercept  value  of  cone 

BODY, 

BODYR 

CBODY 

DINF 

INPUT 

BLANK 

DINF2 

2 

MAIN 

CDECODE 
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Description  (In  Part  I notation) 


V cos6  cosa  VP  /p 

00  y 00  00 

parameter  used  for  bent  cone  calcs. 
AY 

AY/3 

AZ 

cosB  slna  yp„/p„ 

V sln6 

00  Y oo  oo 

error  limit  for  real  gas  Iterative 
procedures 

parameter  used  for  bent  cone  calcs. 


r,  (5) 


2r  /(r  - 1),  (5) 

00  00 


i/(r  - 1) 


Principal 

Defining 

Routine 

Common 

Block 

MAIN 

CSHOCK 

BODYR 

CBENT 

MAIN 

BLK02 

MAIN 

C INTEG 

MAIN 

CBODYP 

MAIN 

CSHOCK 

MAIN 

CSHOCK 

INPUT 

BLK04 

BODY 

CBENT 

INTEG 

C INTEG 

INTEG 

CINTEG 

INTEG 

CINTEG 

INTEG 

CINTEG 

INTEG 

CINTEG 

INTEG 

CINTEG 

INPUT, 

DECODE 

BLK04 

MAIN, 

JUMP 

BLK04 

MAIN 

BLK04 

parameter  used  In  real  gas  Iterative 
procedures 


DECODE 
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h- 


FORTRAN 

Symbol 

Description  (In  Part  I notation) 

Principal 

Defining 

Routine 

Common 

Block 

GD 

(r  - l)/2.  (5) 

MAIN, 

DECODE 

BLK0A 

GE 

(r  + l)/2,  (5) 

MAIN, 

DECODE 

BLK04 

GFF 

r + 1,  (5) 

MAIN, 

DECODE 

CDECODE 

GG 

- 1,  (5) 

MAIN, 

DECODE 

CDECODE 

GM(N,M) 

r 

MAIN, 

DECODE 

BLK04 

GIMl 

i-r 

00 

MAIN 

CDECODE 

GX 

r or  Y 

RGAS 

RGASS 

GY(M) 

T (Y  ) 
84  ™ 

MAIN 

CINTEG 

GYMDY 

g at  Y = -AY 

y 

TRANGD 

CTRANG 

GYYMDY 

g at  Y = -AY 

yy 

TRANGD 

CTRANG 

GYIPDY 

g at  Y = 1 + AY 

y 

TRANGD 

CTRANG 

GYYIPDY 

g at  Y = 1 + AY 

yy 

TRANGD 

CTRANG 

HINF 

h 

00 

MAIN 

CDECODE 

HN 

parameter  used  for  bent  cone  calcs. 

BODYR 

CBENT 

HOT2 

2h  + 

00  00 

MAIN 

BLK(54 

HX 

h 

RGAS 

RGASS 

IBN 

= 0,  spherical  nose 
= 1,  bent  sphere-cone  nose 

INPUT 

CBENT 

ICFL 

step  count  used  after  expansion 

discontinuity  for  option  to  reduce 
step  size 

MAIN 

BLK03 

ICHECK 

Flag  indicating  predictor  or 
corrector  for  DECODE 

MAIN 

CDECODE 
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FORTRAN 

Symbol 

Description  (In  Part  I notation) 

Principal 

Defining 

Routine 

Common 

Block 

IDYAW 

= 0 symmetric  case  (ij>g  = it) 

= 1 nonsymmetrlc  case  ((|)g  = 2ir) 

MAIN 

BLANK 

lERRPR 

number  of  previous  steps  to  be 
printed  out  after  error 
termination 

INPUT 

CSAVE 

IJMPKT(M) 

step  count  used  after  expansion 
and  compression  discontinuities 
for  X derivative  cancellation 
option 

WALL 

BLK03 

IJUMP (M) 

flag  used  to  indicate  that  a 

discontinuity  In  body  slope  has 
been  sensed 

BODYP, 

MAIN 

BLK03 

IJUMPl  (M) 

flag  used  to  control  options  In 

WALL  when  body  slope  discontinuity 
has  been  encountered 

JUMP, 

BODYP, 

WALL 

BLK03 

ISWMOD 

flag  used  to  select  options  for 
wall  point  calculation 

INPUT 

CWALL 

ISWSMO 

for  0 f M i ISWSMO,  entropy  at 
wall  Is  defined  by  extrapolation 

INPUT 

BLK04 

JCFL 

= 1,  2,  or  3;  tells  which  of  ^2* 

Uj  determines  stability  cond. 

EVAL 

CEVAL 

K 

step  count 

MAIN 

BLANK 

KCFL 

number  of  steps  to  reduce  step  size 
after  an  expansion  discontinuity 

INPUT 

CWALL 

KFAC 

step  size  Is  reduced  by  AZ/KFAC 
after  an  expansion  discontinuity 

INPUT 

CWALL 

LCNT 

Maximum  number  of  real  gas 
Iterations 

INPUT 

BLK04 

MA 

MC-1 

MAIN 

CINTEG 

MAS 

= MC  (IDYAW=0) 

= MC-1  ( IDYAW- 1) 

MAIN 

CSAVE 
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FORTRAN 

Symbol 

NSWC/WOL/TR  77-28 
Description  (In  Part  I notation) 

Principal 

Defining 

Routine 

Common 

Block 

MC 

M,  the  number  of  points  In  the  Y 
direction 

INPUT 

BLANK 

MCFL 

value  of  m where  stability  condition 
Is  determined 

EVAL 

CEVAL 

MCP 

MC+1 

MAIN 

CTRANG 

MCMAX 

max.  (fi  pts.  In  dimension  statements 

DATA  Card 

MODI 

= 1,  second  order  accuracy  for  wall 
points 

= 0,  first  order  accuracy  for  wall 
points 

INPUT, 

WALL 

CWALL 

MX  (REAL) 

M^^  (z  = 0) 
n c 

INTEG 

CINTEG 

MXZ  (REAL) 

8M^ 

— (2  = 0) 
dZ  C 

INTEG 

C INTEG 

MY  (REAL) 

M=  (z^  = 0) 

INTEG 

CINTEG 

MYZ  (REAL) 

3M^ 

(z  = 0) 
0 z c 

INTEG 

CINTEG 

MZ  (REAL) 

M*^  (z  »=  0) 
a c 

INTEG 

CINTEG 

MZZ  (REAL) 

3M^ 

^ 

INTEG 

CINTEG 

NA 

NC-1 

MAIN 

BLK04 

NC 

N,  the  number  of  points  In  the 
X direction 

INPUT 

BLANK 

NCFL 

value  n where  stability  condition  Is 
determined 

EVAL 

CEVAL 

NCMAX 

max.  r pts.  In  dimension  statements 

DATA  Card 

NFIRST 

flag  used  In  RGAS 

MAIN, 

RGAS 

RGASS 
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FORTRAN 

Symbol 

Description  (In  Part  I notation) 

Principal 

Defining 

Routine 

Common 

Block 

NJMKTC 

max.  number  of  steps  to  modify 
X derivatives  at  wall  after  a 
compression  discontinuity 

INPUT, 

MAIN 

CWALL 

NJMPKT 

max.  number  of  steps  to  modify 
X derivatives  at  wall  after  an 
expansion  discontinuity 

INPUT, 

MAIN 

CWALL 

NGAS 

flag  to  determine  gas  mixture 
In  RGAS 

INPUT 

RGASS 

NSGD 

number  of  (f  values  to  be  read  In 

INPUT 

CTRANG 

NSFD 

number  of  x values  to  be  read  In 

INPUT 

CTRANF 

NTARGET 

number  of  target  points  for 
printout  to  be  read  In 

INPUT 

COUT 

NTEST 

1 0 then  perfect  gas 
< 0 then  real  gas 

INPUT 

RGASS 

P(N,M) 

n m 

EVAL 

BLANK 

PDIF 

Po=/P«. 

MAIN 

CSHOCK 

PHI (M) 

m 

MAIN 

CBODY 

PHIO 

i^o  (“  ■’f  or  2r) 

INPUT 

BLANK 

PHIIJ, 

PHI2J 

ij>  Interval  to  turn  JUMP  subroutine 
off 

INPUT 

CBODYP 

PI 

TT 

MAIN 

BLANK 

PID2 

^/2 

BODYR 

CBENT 

PINF 

P» 

INPUT 

BLANK 

PWY (J) 

temporary  storage  for  p at 
wall,  (1) 

EVAL, 

EVALSY 

BLK01 

PZ 

8p  , , 

^ at  wall 

WALL 

CWALL 

PZCOR(M) 

1 ,m 

WALL 

CWALL 
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FORTRAN 

Symbol 

Description  (In  Part  I notation) 

Principal 

Defining 

Routine 

Common 

Block 

R(N,M) 

n m 

TRANE 

BLANK 

RAD 

tt/180“ 

MAIN 

BLANK 

RRX 

gas  constant 

RGAS 

RGASS 

SFD(N) 

X = f(X^) 

TRANFD 

CTRANF 

SFXD (N) 

TRANFD 

CTRANF 

SFXXD(N) 

^XX 

TRANFD 

CTRANF 

SGD(M) 

g(Y^) 

TRANGD 

CTRANG 

SGYD (M) 

gy 

TRANGD 

CTRANG 

SGYYD (M) 

gyv 

TRANGD 

CTRANG 

SINF 

s 

00 

MAIN 

BLANK 

SINPHI(M) 

sln[<t>(Y^)] 

MAIN 

CBODY 

SPDIF 

\/o  /p 
\ 00  *^00 

MAIN 

CSHOCK 

SW(M) 

s at  wall 

DECODE 

BLK04 

SWY(J) 

temporary  storage  for  s at  wall,  (1) 

EVAL, 

EVALSY 

BLK01 

SZ 

Iy  at  wall,  (6) 

WALL 

CWALL 

TANBN 

tan(THETABN) 

BODYR 

CBENT 

TANGO 

tan (CONE) 

BODY, 

BODYR 

CBODY 

TARGET Z 
(100) 

Z values  for  targeting  printout 

INPUT 

COUT 

TF4(N,L) 

T , (3) 
4 

TRANF 

BLK02 

TF6(N,L) 

T.  , (3) 
6 

TRANF 

BLK02 

TF7(N,L) 

T , (3) 
7 

TRANF 

BLK02 
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FORTRAN 

Symbol 

Description  (In  Part  I notation) 

Principal 

Defining 

Routine 

TG4(J) 

gy 

TRANG 

TG5(J) 

TRANG 

TG6(J) 

^YZ^^Y* 

TRANG 

THETA 

y * <P/<P 

o 

TRANG 

THETABN 

bend  angle  In  bent  cone  calcs. 

INPUT 

TX 

temperature 

RGAS 

U(N,M) 

n m 

DECODE 

UNOR(N,L) 

(N  - 1,2,3,  only)  A,  (3) 

EVAL 

UZCOR(I.M) 

F^  + 9F^ 

'N,m  ^ 'N-2,m  N-l,m 

SHOCK 

V(N.M) 

n m 

DECODE 

VINF 

V 

00 

MAIN 

VOWY(J) 

v/v  at  wall,  (1) 

EVAL, 

EVALSY 

4 

VIINF 

V sin  a cosB 
00 

MAIN 

V2(J) 

V2  at  wall,  (1) 

EVAL, 

EVALSY 

V2INF 

V sin  B 
00 

MAIN 

V2Z 

3V 

— ^ at  wall 
9Z 

WALL 

r 

W(N,M) 

n m 

DECODE 

1 

WINX 

V cos  a cosB 
00 

MAIN 

i* 

X(N) 

X 

n 

MAIN 

XINDEF 

Undefined  quantity 

h- 

t 
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Common 

Block 

BLK02 

BLK02 

BLK02 

BLK02 

CBENT 

RGASS 

BLANK 

BLK01 

CSHOCK 

BLANK 

COUT 

BLK01 

CDECODE 

BLK01 

CDECODE 

CWALL 

BLANK 

CDECODE 

BLK02 

COUT 
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FORTRAN 

Symbol 

Description  (in  Part  I 

notation) 

Principal 

Defining 

Routine 

Common 

Block 

XPHI(N,L) 

X.,  (3) 

4' 

TRANF 

BLK02 

XR(N,L) 

X^.  (3) 

TRANF 

BLK02 

XZ(N,L) 

X^.  (3) 

TRANF 

BLK02 

XIKINEQ 

9 

MAIN 

CDECODE 

X1KINP2 

6)+  2 

MAIN 

CDECODE 

Y(M) 

Y 

m 

MAIN 

BLK02 

YAW 

B 

INPUT 

COUT 

YPHI(J) 

TRANG 

BLANK 

YZ(J) 

X,.  (1) 

TRANG 

BLANK 

Z 

Z^"^^  or  Z*' 

MAIN 

CBODY 

ZBB(M) 

parameters  used  in  bent 

cone  calcs. 

MAIN, 

BODY 

CBENT 

ZEND 

z ,,  final  z value 
end’ 

INPUT 

COUT 

ZMAXS 

parameter  used  in  bent 

cone  calcs. 

BODY, 

BODYR 

CBENT 

I \ 


r 

« 


i ■ 


Remarks : 

(1)  These  quantities  are  not  fully  stored.  The  J index  identifies  a 

line  Y = constant  and  is  either  1,  2,  or  3.  For  quantities  indexed 

as  (N,J),  the  index  N refers  to  X = X . 

n 

(2)  Quantities  indexed  (I,N,M),  (I,N,J),  or  (I,N,L)  are  4 dimensional 
column  vectors.  The  index  I * 1,2,3,  or  4 indicates  the  component 
(from  top  to  bottom).  The  exceptions  are  CUP(I,1,M),  CU(I,1,M), 
CUP(I,NC,M),  and  (CUI,NC,M). 

(3)  These  quantities  are  not  fully  stored.  The  L index  Identifies  a 

line  Y = constant  and  is  either  1 or  2.  For  quantities  Indexed  as 

(N,L),  the  index  N refers  to  X = X . 

n 

(4)  At  certain  points  in  the  MAIN,  these  locations  store  the  numerical 
Z-derivatlves  of  the  Indicated  quantities  for  the  predictor  step. 

(5)  In  real  gas  calculations,  these  quantities  are  defined  with 

r = in  MAIN.  In  perfect  gas  calculations,  these  quantities 
are  constants. 


Ill 
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9.  MAIN 


MAIN  is  divided  into  two  sections.  Section  1 is  comprised  of  all 
operations  performed  at  the  initial  entry  to  the  program;  hence,  this 
section  is  executed  only  once  in  the  entire  calculation.  Section  2 contains 
the  predictor-corrector  marching  scheme  and  is,  therefore,  executed 
repeatedly.  Each  cycle  through  this  section  corresponds  to  one  marching 
step  of  the  calculation.  The  basic  operation  of  MAIN,  and  hence  the 
entire  program,  is  shown  schematically  in  Fig.  8.  Each  rectangle  in  the 
figure  represents  a major  subsection  of  the  program.  Note  well,  these 
functional  rectangles  can  be  easily  identified  in  the  listing  by  locating 
the  corresponding  comment  cards.  The  individual  subsections  are  described 
in  Secs.  9.1  and  9.2  below. 

9 . 1 Section  1 

Input  - The  initial  flow  field  data  is  input  from  tape  and  rezoned 
if  necessary.  Also,  various  program  controls  and  parameters  are  input 
from  cards.  Specific  instructions  and  descriptions  of  both  of  these 
Inputs  are  given  in  the  User's  Manual. 

Initializations  and  Parameters  - Various  fixed  parameters  used  through- 
out the  calculation  are  computed  and  the  X,Y,CU,  and  ASQ  and  GM  arrays  are 

initialized  (except  for  N-1  and  NC)  using  the  initial  flow  field  data. 

4 3c  ^ 

Preliminary  Predictor  Loop  - This  loop  computes  the  derivatives  3Z 
9c  g 3V 

If  which  are  required  in  the  predictor  for  the  first 
d4  32  32  3Z 

step.  These  derivatives  are  determined  using  (3.9a)  -(3.9c),  (3.6a), 

(3.16)  - (3.18);  their  values  are  stored  in  the  CUP  and  CP  arrays. 
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SECTION  1 


SECTION  2 


Fig.  8.  Flow  chart  of  MAIN 
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Here  the  CU,  ASQ,  and  GM  arrays  (see  sec.  8)  for  N«1  and  NC  are  initialized 
using  wall  and  shock  quantities  from  the  initial  data.  In  each  pass  through  this 
loop,  the  above  operations  are  performed  on  the  adjacent  lines  M-1  and  M* *.  The 
quantities  K1,K2  (=  1 or  2)  are  Indices  which  identify  certain  quantities 
determined  in  the  previous  pass  through  the  loop  (see  the  comment  statements 
in  the  listings  for  more  details).  When  the  loop  has  been  completed,  the 
stability  parameter,  CFL,  for  calculating  the  step  size  for  the  first  step 
has  been  determined  (in  EVAL) . 

9. 2 Section  2 

AZ,new  Z - In  this  subsection,  the  step  size  AZ  is  determined  using 
the  value  of  the  stability  parameter,  CFL,  obtained  in  the  previous  cycle 
or.  In  the  case  of  the  first  step,  in  the  Preliminary  Predictor  Loop.  After 
an  expansion  discontinuity,  AZ  can  be  reduced  if  this  option  is  selected 
by  the  user.  The  new  value  of  Z is  then  obtained  by  incrementing  the 
previous  value  of  Z by  AZ.  This  subsection  also  contains  tests  to  determine 
if  an  axes  shift  is  necessary  in  bent  cone  calculations  (see  User's  Manual 
for  details). 

Predictor  Update  Loop  - In  this  loop  the  predicted  values  of  the 
conservation  vector  U,  the  wall  quantities  P,V2,s,  and  the  shock  geometry  c,c^,c^ 
for  the  new  value  of  Z are  determined  using  (3.6a),  (3.13)  , and  (3.10). 

Recall  that  the  Z-derivatlves  appearing  in  these  equations  were  computed 
in  the  previous  cycle  or,  in  the  case  of  the  first  step,  in  the  Preliminary 
Predictor  Loop  and  were  stored  in  the  CUP  and  CP  arrays.  In  the  execution 
of  the  loop,  the  predicted  values,  as  they  are  determined,  replace  the 
derivative  values  in  these  arrays. 

*The  set  of  computational  points  (X(N),Y(M)}  where  M is  fixed  and  N=1,2,***,NC 

will  be  referred  to  as  the  line  M. 

114 


NSWC/WOL/TR  77-28 


Corrector-Predictor  Loop  - This  loop  contains  the  major  part  of  the 

marching  step  calculation.  In  the  loop,  various  operations  are  performed 

on  the  adjacent  lines*  M,  M-1,  and  M-2.  The  quantities  K1,K2  (=  1,  or  2) 

and  J1,J2,J3  (=  1,  2,  or  3)  are  Indices  which  identify  certain  quantities 

determined  in  previous  passes  through  the  loop  (see,  the  comment  statements 

in  the  listing  for  more  details).  In  each  pass  through  the  loop,  the 

following  operations  are  performed  in  the  sequence  indicated**: 

(i.)  On  the  line  M,  the  predicted  values  of  the  flow  variables 
2 

p,p,w,u,v,a  are  determined  from  the  predicted 

values  of  U,P,V„S.c,.  c_,  c (c.f.,  DECODE,  see  Sec.  10.2).  Note  that  the 

z 4)  z — _ 

predicted  values  of  U,P , V- ,s , c . ,c  ,c  were  determined  in  the  Predictor  Update 

2 ’ ^ z 

Loop  • 

(ii.)  The  corrected  value  of  c at  Y = Y (M)  is  determined  using 

(3.11  ). 

(ill.)  On  the  line  M-1,  the  corrected  values  of  the  conservation 

vector  U.  the  wall  quantities  P,V.,s,  and  the  shock  geometry  c, ,c  are 

2 f Z 

determined  using  (3.6b),  (3,14),  (3.11).  These  are  stored  in  the  CU  array. 

2 

(iv.)  On  the  line  M-1,  the  corrected  values  of  p,p,u,v,w,a 
are  determined  using  the  quantities  obtained  in  (ill) , and  the  corrected 
value  of  c determined  in  (li.)  for  the  previous  pass  through  the  loop, 

c.f.,  DECODE . 

Sec.  10.2.  Note  that  the  corrected  values  obtained  here  replace  the 
*Ibid 

**The  sequence  of  operations  indicated  here  is  necessarily  modified  for  the 
first  and  last  two  passes  through  the  loop  (see  the  listing  for  details). 
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predicted  values  in  the  P,D,U,V,W,ASQ, CPHI,CZ  arrays  on  the  line  M-1. 

The  predicted  values  on  M-1  are  no  longer  needed  in  the  calculation. 

(v.)  If  for  Y = Y(M-l),  a discontinuity  in  body  slopes  has  been 

found  (by  BODYP) , the  true  body  geometry  is  substituted  for  the  modified 

geometry  (in  BODYPP)  and  discontinuities  in  the  surface  flow  variables 

are  computed  (in  JUMP) . This  procedure  is  discussed  in  detail  in  Sec.  4.1. 

2 2 

(vi.)  On  the  line  M-1,  the’local  stability  parameters  y/(w  - a ) 

(c.f.,  Sec.  3.6)  are  computed  using  the  corrected  values  of  the  flow  variables 

and  the  maximum  of  these  parameters  taken  over  all  previously  computed 

lines  is  up-dated  to  Include  the  line  M-1  (in  EVAL) . Note  that  the  stability 

parameters  being  considered  here  are  for  the  next  Z step. 

3U  ^ ^^2  3s  3c 

(vii.)  On  the  line  M-2,  the  derivatives  — , 3Z  ’ 3Z  ’ 3Z  ’ 3Z  ’ 3Z 

required  for  the  predictor  for  the  next  step  are  computed  using  (3.6a), 

(3. 16)-(3. 18) , and  (3.9a)-(3.9c) . These  quantities  are  stored  in  the 
CUP  and  CP  arrays. 

Note  that  after  the  Predictor-Corrector  Loop  has  been  completed,  the 
arrays  CU,C,CZ,  CPHI,P,U,V,W,ASQ  contain  corrected  values  of  the  corresponding 
quantities  at  the  new  value  of  Z.  The  arrays  CUP  and  CP  contain  the  values 
of  the  Z derivatives  required  for  the  predictor  step  of  the  next  cycle. 
Furthermore,  the  stability  parameter,  CFL,  for  determining  the  size  of 
the  next  step  has  been  determined. 

Force  and  Moments,  Output  - On  this  subsection,  the  aerodynamic  force 
and  moment  results  are  computed  (in  INTEG)  and  outputs  are  performed. 


The  flow  variables  and  the  force  and  moment  results  for  the  current  step 
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are  output  to  a binary  tape  (TAPE  16).  Also,  if  selected  by  the  user, 
the  current  flow  field  results  are  output  on-line  (In  FIELD) . The  various 
options  available  for  on-line  printout  are  discussed  in  the  User's  Manual. 

If  the  calculation  is  to  be  continued  (l.e.,  the  current  value  of  Z 
is  less  than  ZEND  and  the  step  count  K is  less  than  the  maximum  number 
of  steps  selected  by  the  user),  the  control  is  returned  to  the  beginning  of 
Section  2 and  the  cycle  for  the  next  step  is  performed.  If,  on  the  other 
hand,  the  calculation  is  to  be  terminated,  the  current  flow  variables 
and  the  force  and  moment  quantities  are  output  to  a binary  tape  (TAPE  17). 

This  tape  serves  as  an  input  tape  if  the  calculation  is  to  be  restarted 
from  the  current  station  in  a different  run  (see  the  User's  Manual  for  instruc- 
tions on  restarting).  The  final  operation  before  termination  is  the  on-line 
printout  of  the  surface  pressure  data  and  the  force  and  moment  coefficients 
(see  OUT,  Sec,  12.3). 
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10.  SUBROUTINES  USED  IN  THE  FLOW  FIELD  CALCULATION 

The  subroutines  discussed  in  this  section  are  all  called  from 
MAIN  in  the  Preliminary  Predictor  Loop  and  the  Corrector-Predictor  Loop. 

These  two  loops  and  the  subroutines  of  this  section  constitute  the 
complete  algorithm  for  computing  one  marching  step  of  the  flow  field 
calculation.  All  the  subroutines  in  this  section  are  line  operations; 
i.e.,  when  the  subroutine  operation  depends  on  X and  Y,  all  points 
X(N),  Y (M)  where  M is  fixed  and  N = 1,2,***,NC  are  considered  for  each 
entry.  When  the  subroutine  operation  depends  exclusively  on  Y,  only  the 
value  Y = Y(M)  is  considered  for  each  entry.  Generally,  the  Inputs  to 
and  outputs  from  these  subroutines  are  via  the  COMMON  BLOCK  (see  Sec.  8). 

Thus  the  arguments  in  the  calling  sequences  of  these  subroutines  only 
contain  indices  which  identify  the  input/output  quantities  on  the  particular 
line  for  which  the  subroutines  are  to  operate  (the  exceptions  to 
this  are  DECODE  (see,  Sec.  10.2)  and  JUMP  (see.  Sec.  10.4). 

10.1  BODYP,  ENTRY  BODYPP 

Calling  sequence;  Call  BODYP (M,J3) 

where  M is  the  line  index;  i.e.,  Y = Y (M) . 

J3  (=  1,2,  or  3)  is  the  identification  index  corresponding 

to  the  line  M for  the  body  parameters 
A1,A2, • • ,A5,A7. 

Description : This  routine  defines  the  body  parameters  A1(J3),***, 

A5(J3) ,A7(J3)  for  the  line  M (for  definitions  of  these  quantities,  see 
Sec.  8).  These  quantities  are  computed  using  the  body  geometry  contained 
in  B(M),  BPHI(M) , BZ(M),  BZZ,  BZPHI , and  BPHPHI  (determined  in  BODY) . Note 
that  BODYP  is  always  called  after  BODY  in  the  MAIN. 


NSWC/WOL/TR  77-28 


This  routine  also  tests  for  discontinuities  in  body  slope  (see 

Sec.  4.1  for  a discussion  of  the  procedures  used  when  such  discontinuities 

are  present).  If  a discontinuity  is  found  and  if  subroutine  JUMP  is  to 

be  used,  the  flag  IJUMP(M)  is  set  to  1 and  the  old  (previous)  values  of 

b . b . b , and  b (stored  in  BZO(M),  BPHIO(M),  etc.)  are  used  to  define 
z <|)  Z(fi  zz 

A1(J3),  A2(J3),  etc.  In  this  case,  the  true  values  of  the  body  derivatives 
are  stored  temporarily  in  BZT(J3),  BPHIT(J3),  etc.  The  entry  point  BODYPP 
is  used  only  when  the  JUMP  routine  is  used.  It  is  called  from  the 
Corrector-Predictor  Loop  for  the  purpose  of  redefining  the  arrays  A1(J3), 


A2(J3),  etc.  using  the  true  values  of  the  body  derivatives. 

10.2  DECODE 

Calling  sequence;  CALL  DECODE  (M,CV,  J,NDIM,MDIM) 
where  M is  the  line  index;  i.e.,  Y = Y(M) 

CV  is  either  the  CU  or  CUP  array 


J (=  1,2,  or  3)  is  the  identification  Index  corresponding 

to  the  line  M for  the  body  parameter 
A2 

NDIM  is  the  value  of  the  dimension  for  the  N 
index  of  CV 

MDIM  is  the  value  of  the  dimension  for  the  M 
index  of  CV 

Description:  This  routine  defines  the  flow  variable  arrays  P,D,U,V,W,ASQ 

and  the  shock  arrays  C.CZ.CPHI  for  the  line  M.  The  flow  quantities  at  the 

wall  (N  = 1)  are  determined  from  the  values  of  P,  V^,  and  s contained  in  the 
CV  array  for  N = 1 using  p = exp(P),  (2.4b),  and  (3.15).  For  interior  points 
1 < N < NC,  the  flow  quantities  aie  determined  from  the  values  of  the 


119 


•n 


NSWC/WOL/TR  77-28 


r 

I 

conservation  vector  contained  in  the  CV  array  using  the  procedure  described 

in  Sec.  3.2.  At  the  shock  N * NC,  the  flow  variables  are  determined  using 

the  Ranklne-Hugonlot  relations  with  c,c. ,c  contained  in  the  CV(1,NC,M) 

9 z 

CV(3 »NC,M) ,CV(2 ,NC,M)  arrays  (see  Sec.  3.3).  The  thermodynamic  properties 
needed  in  these  procedures  are  supplied  from  subroutines  RGAS  and  HGAS . 

This  routine  also  contains  the  selective  smoothing  procedure  given 
in  section  4.1.  When  an  interior  point  has  a negative  pressure,  the 
conservation  vector  CV  is  redefined  at  that  point  using  (4.11)  and  flow 
variables  are  recomputed. 

10.3  EVAL,  ENTRY  EVALSY.  ENTRY  EVALPR 

Calling  sequence:  CALL  EVAL  (L,M,IT, JSG, JCG, JCFCE) 


L 

Is 

0 in  the  predictor  and  1 in  the 
corrector 

M 

is 

the  line  index;  i.e.,  Y = Y (M) 

IT  (=  1 or  2) 

is 

the  identification  index  corresponding 
to  the  line  M for  XZ,XR,XPHI,TF4, 
TF6,TF7 

JSG  (=  1,2,  or  3) 

is 

the  Identification  index  corresponding 
to  the  line  M for  YPHI,YZ,TG4,TG5,TG6 

JCG 

is 

the  identification  index  corresponding 
to  the  line  M for  CG,V0WY,PWY,SWY,V2 

JCFCE  (=  1 or  2) 

is 

the  identification  index  corresponding 

to  the  line  M for  CF,CE,UN0R 

Description;  This  routine  detenulnes  the  flux  vectors  F and  G and 
the  source  term  E on  the  line  M using  the  definitions  given  in  (3.3a), 
(3.3b),  and  (3.3c).  The  flow  variables  p,p,  etc.  used  in  these  equations 
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are  the  current  values  contained  in  the  COMMON  arrays  P,U,  etc.  on  the 

line  M.  On  this  line,  these  arrays  may  contain  predicted  values  (when 

L = 1)  or  corrected  values  (when  I.  = 0) . The  other  quantities  required 

in  (3.1a)  - (3.3c)  are  XZ,XR,XPHI,TF4,TF6,TF7  (from  COMMON  using  the 

index  IT)  and  YZ,TG4,TG5,TG6  (from  COMMON  using  the  index  JSG) . The  values 

of  F and  E that  are  obtained  are  stored  in  COMMON  arrays  F and  E using  the 

JCFCE  index;  the  value  of  G is  stored  in  the  CG  array  using  the  index  JCG. 

This  routine  also  computes  and/or  stores  various  quantities  used  in  WALL  and 

SHOCK.  These  are  A for  N = 1,2,3  (stored  in  the  COMMON  array  UNOR  using 

the  index  JCFCE),  the  wall  values  (N  = 1)  of  v/w.p.s.V^  (stored 

in  the  COMMON  arrays  VOWY , PWY , SWY , and  V2,  respectively,  using  the  index 

JCG)  and  the  shock  slopes  c ,c  (stored  In  COMMON  arrays  CPHTY  and  CZY 
using  the  index  JCG).  ^ 

For  each  step  Z,  of  the  calculation,  EVAL  is  entered  twice;  once 
' when  L = 0 (predictor)  and  once  when  L = 1 (corrector).  When  this  routine 

is  entered  with  L = 0 (corrected  values  in  P,D,  etc.)  the  local  stability 

i'  2 2 

; parameter  p/(w  - a ) (c.f..  Sec.  3.6)  is  computed  and  compared  to  the 

maximum  of  these  quantities  taken  over  the  previously  executed  lines.  Note 
that  the  value  of  CFL  in  COMMON  after  EVAL  has  been  executed  is  the  maximum 
of  the  local  values  taken  over  the  lines  1,2,**',M. 

The  entry  EVALSY  is  used  in  the  symmetric  problem  to  define  the  COMMON 
' arrays  CG, VOWY, PWY, V2 , CPHTY,  and  CZY  on  the  "fringe"  lines  corresponding  to 

-AY  and  1 + AY.  The  flow  variables  on  these  planes  are  determined  using 
( the  symmetry  conditions  (3.21)  and  (3.22).  For  this  entry,  the  argument 

I M is  2 (for  Y = - AY)  and  MC-1  (for  Y = 1 + AY);  the  index  IT  identifies  the 
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elements  of  the  COMMON  array  TG5  corresponding  to  Y = 0 or  Y = 1;  and 

the  index  JSG  Identifies  the  elements  of  the  arrays  YZ  and  YPHI  corresponding 

to  Y = - AY  or  Y = 1 + AY. 

The  entry  EVALPR  Is  used  in  the  non-symmetrlc  problem  to  define  the 

COMMON  arrays  CG,VOWY,PWY,VZ,CPHTY,  and  CZY  on  the  planes  -AY  and  1 using 

(3.24).  In  this  entry  M Is  MC-1  for  the  plane  Y = - AY  and  1 for  the  plane 

Y = 1;  the  Index  JCG  Identifies  the  elements  of  the  COMMON  arrays  YZ  and 
YPHI  on  these  planes. 

10.4  JUMP 

Calling  sequence;  CALL  JUMP  (DBP,DBZ,MB) 


where 

DBP 

is 

[(b  /b)  - (b  /b)  ] (see  Part  I notation) 

(J)  - |J>  + 

DBZ 

is 

[ (b^)_  - (b^)_|_]  (see  Part  I notation) 

MB 

is 

the  line  index;  i.e.,  Y = Y (MB) 

Description:  This  routine  computes  the  discontinuities  in  the  flow 

2 

variables  p,p,u,v,w,a  at  the  wall  (N  = 1)  associated  with  discontinuities 
in  b and/or  b ; c.f.,  Sec.  4.1.  This  routine  is  called  only  when  a 
discontinuity  is  found  (in  BODYP)  for  Y = Y(MB)  (i.e.,  the  flag  IJUMP(MB)  = 1). 
The  routine  computes  che  surface  flow  variables  on  the  downstream  side  of 
the  discontinuity  (subscripted  + in  Sec.  4.1)  using  the  formulas  given  in 
Sec.  4.1.  The  flow  variables  with  subscript  - in  Sec.  4.1  are  input  from 
COMMON  in  the  P,D,  etc.  arrays  with  N = 1.  The  output  flow  quantities 
(corresponding  to  the  subscript  + in  Sec.  4.1)  are  stored  in  these  locations 
when  the  routine  is  executed.  The  routine  also  sets  the  flag  IJUMPl(MB) 

(see  comment  cards  of  JUMP  for  details),  puts  ISWSMO  = 0,  if  there  is  a 
compression  corner,  and  starts  the  counts  ICFL  and  IJMPKT(MB). 

These  are  used  in  WALL  and  the  MAIN  to  control 
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various  special  procedures  for  the  wall  point  calculations  downstream  of 


the  discontinuity  (see.  Sec. 

4.1  for 

details)  . 

10.5  TRANF,  ENTRY  TRANFW 

Calling  sequence:  CALI, 

TRANF (M, 

J.I) 

where 

M is 

tile  line  index;  i.e.,  Y = Y(M) 

J (=  1,2,  or 

3)  is 

the  identification  index  corresponding 
to  the  line  M for  YZ,YPHI,TG6 

I (=  1 or 

2)  is 

tlie  identification  index  corresponding 
to  the  line  M for  XR, XZ ,XPHI ,TF4, 
TF6,TF7 

Description:  This  routine  defines  the  arrays  R,XR,XZ,XPHI ,TF4,TF6, 

and  TF7  on  the  line  M using  the  definitions  given  by  (3.3g),  (3.3i),  and 
r = b + x(c  - b) . The  quantities  x = f,  f^,  f^>  etc.  appearing  in  these 
equations  must  be  specified  in  this  routine  by  the  user.  Specifically, 
defining  relations  for  the  following  FORTRAN  variables  must  be  programmed 
into  this  routine  as  functions  of  (X,Y,Z): 

SX  = f , SFX  = , SFY  = , SFZ  = f^ 

SFXX  = f^  , SFYX  = f^j.  , SFZX  = f^,^ 

(see  Sec.  4.3  for  a discussion  of  the  requirements  on  the  choice  of  the 

mapping  function  f(X,Y,Z)  and  a non-trivial  example).  In  the  routine, 

any  of  the  above  variables  which  do  not  depend  explicitly  on  X can  be 

defined  outside  the  loop  on  N;  all  variables  defined  which  depend  on  X 

must  be  defined  inside  the  loop  on  N (see  listing).  Note  that  version  1 

of  this  routine  given  in  Appendix  D has  two  options.  One  is  for  the  case  of  no 

clustering  in  the  radial  direction;  i.e.,  f(X,Y,Z)  = X,  hence,  SX  = f = X(N), 

SFX  = 1,0,  and  SFY  = SFZ  = SFXX  = SFYX  = SFZX  = 0.  The  other  option  allows 
the  user  to  select  the  ^esired  mesh  spacing  in  the  radial  direction  by  directly 
Inputlng  the  values  of  x = f to  be  used  in  the  calculation  (see  sec.  4.3  for 
details).  When  this  option  Is  used,  the  necessary  data  is  read-ln  and  the 
quantities  ^XX  ^ ^ derivatives  of  f are  zero)  are  computed 
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In  TRANFD  (see  sec.  12.5).  These  derivatives  are  Input  to  TRANF  via  the 

COMMON  arrays  SFD^  SFXD,  and  SFXXD,  The  other  quantities  needed  In 
the  evaluations  of  R,XR,  etc.  are  YZ,YPHI,TG6  (input  from  COMMON  using 

the  index  J)  and  B, BZ, BPHI ,C ,CZ , and  CPHI  (input  from  COMMON  using  the 

index  M) . The  quantities  XZ,XPHI,TF4,TF6,  and  TF7  are  stored  in  COMMON 

using  the  index  I.  Note,  this  routine  is  called  only  once  per  line. 

For  this  call,  C contains  the  corrected  value,  CPHI  and  CZ  contain  predicted 

values.  When  the  corrected  values  of  CZ  and  CPHI  are  determined,  the 

quantities  XZ,XPHI,TF6,TF7  (the  only  ones  depending  on  CZ  and  CPHI)  are 

updated  in  the  Corrector-Predictor  Loop. 

The  entry  point  TRANFW  is  used  only  once  in  the  program  (called 

from  Section  1 of  MAIN) . Its  purpose  is  to  print  out  on  the  heading  page 

an  identification  of  the  particular  mapping  function  f used  in  the  routine. 

10.6  TRANC,  ENTRY  TRANCW 

Calling  sequence;  CALL  TRANG(YY ,M, J) 

where  YY  is  the  value  of  Y = Y (M) 

M Is  the  line  index 

J is  the  identification  index  corresponding 

to  the  line  M (where  M is  such  that 
YY  = Y(M))  for  YPHI,YZ,TG4,TG5,TG6 

Description:  This  routine  defines  the  quantities  THETA, YPHI ,YZ ,TG4 ,TG5 , 

TC6  for  Y = YY 
where 

THETA  = y = g , YPHI  = , YZ  = - g^/g^ 

TG4  = , TC5  = g^y/gy  , TG6  = g^y/Sy  ■ 

These  quantities  are  stored  in  COMMON  using  the  J index. 

The  quantities  g,  gy,  g^,  etc.  appearing  in  the  above  definitions  must 

be  specified  in  this  routine  by  the  user.  Specifically,  defining  relations 

for  the  following  FORTRAN  variables  must  be  programmed  into  this  routine 

as  functions  of  (YY,Z): 

SC  = g , SGY  = gy  , SGZ  = g^ 

SGYY  = gyy  , SGYZ  = gy^ 
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(see  Sec.  4.3  for  a discussion  of  the  requirements  on  the  choice  of  the 


mapping  function  g(Y,Z)  and  a non-trlvlal  example).  Note  that  version  1 


of  this  routine  given  In  Appendix  D has  two  options.  One  is  for  the  case  of 


no  clustering  In  the  azimuthal  direction;  i.e.,  g(YY,Z)  = YY,  hence,  SG  * YY, 

SGY  = 1.0  SGZ  = 0.  SGYY  = 0.  SGYZ  = 0.  The  other  option  allows  the  user 
to  select  the  desired  mesh  spacing  In  the  i}>-dlrectlon  by  directly  Inputing 
the  values  of  to  be  used  in  the  calculation  (c.f.,  sec.  4.3).  For  this 

option,  the  necessary  data  Is  read-ln  and  the  quantities  g,gy,g^  (Z  derivatives 
of  g are  zero)  are  computed  In  TRANFD  (see  sec.  12,6).  These  are  Input  to 
TRAJ^  via  the  COMMON  arrays  SGD,SGYD,SGYDD  using  the  Index  M. 

The  entry  point  TRANGW  Is  used  only  once  in  the  program  (called  from 
Section  1 of  MAIN) . Its  purpose  is  to  print  out  on  the  heading  page  an 
identification  of  the  particular  mapping  function  g used  in  the  routine, 

10.7  WALL 

Calling  sequence:  CALL  WALL(M, JR, JL, JSG, IF,L) 

where  M is  the  line  index;  i.e.,  Y = Y (M) 

JR,JL  (=  1,2,  or  3)  are  line  identification  indices  used 

for  the  Y differences  (i.e., 
corresponding  to  M and  M + 1, 
respectively,  for  the  predictor  and 
to  M - 1 and  M,  respectively,  for  the 
corrector) 

JSG  (=  1,2,  or  3)  is  the  identification  index  corresponding 

to  the  line  M for  YPHI , YZ ,TG5 ,TG6 , 
A3,A4,A5,A7 

IF  (=  1 or  2)  is  the  identification  index  corresponding 

to  the  line  M for  XR,TF6 ,TF7,UN0R 

L is  0 in  the  predictor  and  1 in  the 
corrector 

Description:  In  this  routine,  the  derivatives  4^  = — and  4^ 

<7.  piZ  f)Z 

are  computed  for  use  in  both  the  predictor  and  corr('ctor  for  the  wall 
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points  (X  = 0,  N = 1) ; c. f . , Sec.  i.A.  This  routine  contains  both  the 
formulations  described  in  Section  3.4.  These  formulations  are  denoted 
in  the  code  using  the  following  terminology; 

MOD  0 indicates  that  (3.16a)  and  (3.17a)  are  used  in 
(3.16)  and  (3.17),  respectively. 

MOD  3 indicates  that  (3.16b)  and  (3.17b)  are  used  in 
(3.16)  and  (3.17),  respectively. 

When  the  flag  ISWMOD  = 0,  MOD  0 is  used;  when  the  flag  ISWMOD  = 3, 

MOD  3 is  used.  This  routine  also  contains  the  option  for  using  second 
order  accurate  differencing  for  the  wall  points;  i.e.,  (3.19).  This  option 
can  be  used  with  either  the  MOD  0 or  the  MOD  3 formulations.  It  is 
controlled  by  the  MODI  flag;  i.e.,  second  order  accuracy  is  used  when 
MODI  = 1 and  is  not  used  when  MODI  = 0.  Another  option  contained  in  this 
routine  is  that  of  wall  entropy  reduction  (see.  Sec.  4.2).  This  option 
can  be  used  with  any  combination  of  the  other  options;  it  is  controlled 
by  the  flag  ISWSMO,  When  ISWSMO  4 0 and  M — ISWSMO,  the  routine  computes 
the  wall  value  of  s (not  its  derivative)  using  the  extrapolation  formula 
(4.10.2). 

Initially,  the  usei  can  select  which  of  the  above  options  are  to 
be  used  (see  User's  Manual  for  instructions).  l-Jhen  discontinuities  in 
body  slope  are  encountered  on  the  line  M,  modifications  in  the  computational 
procedure  at  the  wall  are  automatically  made  on  the  line  M and  other 
options  come  into  play  (see  Sec.  4.1  for  a discussion  of  these  procedures). 

The  wall  point  calculation  on  the  line  M is  controlled  by  the  flag 
IJUMPl(M).  When  IJUMPl(M)  = 0 the  user  selected  options  are  used;  i.e., 
there  is  no  body  slope  discontinuity  on  the  line  M.  Immediately  after 
a discontinuity  is  found  on  the  line  M by  BODYP,  IJUMPl(M)  (in  JUMP  or 
BODYP)  is  set  to:  2 if  JUMP  finds  no  pressure  change  across  the  discontinuity 
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(or  If  JUMP  is  not  used) , 3 if  JUMP  finds  a pressure  change  due  to  an 
expansion,  A if  JUMP  finds  a pressure  change  due  to  a compression.  When 
IJUMPl(M)  = 2,  the  wall  point  calculation  is  as  follows  for  the  remainder 
of  the  run: 

(i.)  MOD  0 is  used  on  the  line  M 
(ii.)  the  entropy  reduction  option  is  turned  off  (ISWSMO  is 
set  to  zero  in  JUMP)  If  a compression  corner  exists 
(ill.)  on  the  line  M,  second  order  accuracy  is  turned  off  (if 
originally  selected) 

When  IJUMPl(M)  = 3 or  4,  (i.)  - (iii.)  are  used  with  the  option  for 
zeroing  the  X derivative  terms  in  (3.16)  (c.f.,  Sec.  4.1).  This  option 
will  then  be  used  for  ensuing  marching  steps  on  the  line  M until  the 
test  (4.10.2)  is  satisfied  on  the  line  M or  until  a maximum  number  of 
steps  downstream  from  the  discontinuity  have  been  taken.  The  maximum 
number  of  steps  used  in  this  procedure  can  be  chosen  by  the  user  and  can 
differ  for  expansions  or  compressions.  When  either  of  the  above  criteria 
are  satisfied,  the  flag  IJUMPl(M)  is  set  to  2 for  the  remainder  of  the  run. 

Note,  the  associated  counting  and  testing  is  performed  in  this  routine. 

3P  ^'^2  3s 

In  the  evaluation  of  — , , the  quantities  which  must  be  Y 

aZ  oZ  oZ 

differenced  are  input  from  COMMON  in  the  arrays  PWY,V0WY,SWY,V2  or  CG 

(N  = 1)  depending  on  whether  the  MOD  0 or  the  MOD  3 formulation  is  used. 

The  Y differences  (forward  for  the  predictor,  backward  for  the  corrector) 

are  controlled  by  the  MAIN  using  the  Indices  JR,JL.  The  final  results  for 
9V 

and  are  returned  to  MAIN  using  the  COMMON  variables  PZ,V2Z, 

0 Z 3 Z o Z 

and  SZ,  respectively;  however,  when  the  entropy  is  extrapolated  the  value 
of  s,  not  its  derivative,  is  returned  in  SZ. 


1 
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10.8  SHOCK 


Calling  sequence:  CALL  SHOCK  (M,JR,JL,JSG,lF,L) 


where 


M Is  the  line  Index,  l.e.,  Y » Y(M) 


JR,JL  (“1,2,  or  3)  are  line  Identification  Indices  used  for 

for  Y differences  (l.e.,  corresponding 
to  M and  M-1,  respectively,  for  the 
predictor  and  to  M-1  and  M,  respectively, 
for  the  corrector) 

JSG  (“1,2,  or  3)  Is  the  Identification  index  corresponding 

to  the  line  M for  YPHI,  and  YZ 

IF  (“1  or  2)  Is  the  Identification  Index  corresponding 

to  the  line  M for  CF,  CG,  and  CE 

L Is  0 In  the  predictor  and  1 In  the 
corrector 

Description;  In  this  routine,  the  derivatives  ■^, 

are  computed  for  use  In  both  the  predictor  and  corrector  steps;  c.f.. 

Sec.  3.3.  The  quantities  to  be  Y differenced  are  input  from  COMMON  In 

the  arrays  CZY,  CPHIY,  and  CG.  The  Y differences  (forward  for  the 

predictor,  backward  for  the  corrector)  are  controlled  by  MAIN  using  the 

..  3c,  3c 


Indices  JR,JL.  The  final  results  for 


3c  4>  2 

3Z’  3Z  ’ 3Z 


are  returned  to  MAIN 


using  the  COMMON  variables  DCZ,DCPHZ,DCZZ,  respectively. 
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11.  AUXILIARY  SUBROUTINES 


11.1  INTEG 

CalllnR  sequence;  CALL  INTEG  (I FLAG) 

where  IFLAG  is  0 for  the  first  entry  and  1 for 

all  other  entries 

Description:  This  routine  numerically  Integrates  the  surface 

pressure  results  to  obtain  the  components  of  the  aerodynamic  force  and 

moment  and  their  z derivatives.  The  definitions  of  these  quantities  and  the 

procedures  used  for  their  evaluation  are  described  in  Section  5.  In  this 

routine,  the  center  for  the  moment  is  the  origin;  i.e.,  z = 0.  When  the 

c 

routine  is  called  for  the  initial  value  of  Z (=  z ) , IFLAG  = 0 and  only 

o 

the  z derivatives  are  computed.  When  the  routine  is  called  for  each 

k 

subsequent  step,  Z , IFLAG  = 1 and  the  z derivatives  and  the  components  are 

R 

computed.  The  latter  corresponding  to  the  body  truncated  at  z = Z . The 
quantities  required  for  evaluating  the  Integrands  in  (5.1)  - (5.5)  are 
input  using  the  COMMON  arrays  P(N  = 1) , B, BZ, BPHI ,GY ,C0SPHI , SINPHI . The 
results  are  stored  in  the  COMMON  arrays  FN,FY,FA,MX,MY,MZ,FNZ,FYZ,FAZ,MXZ, 
MYZ,MZZ.  Note  that  (for  the  symmetric  problem  only  the 
non-zero  quantities  are  computed.  Also,  the  numerical  formulas  for 
determining  the  z derivatives  are  slightly  different  from  those  used 
for  the  non-symmetric  problem. 
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11.2  INTRPL 

Calling  sequence:  CALL  INTRPL  (L,X,Y,N,XX,YY) 


L 

is 

the  number  of  pts.  In  the  Input  arrays  X 
and  Y 

X 

is 

the  array  containing  abscissas  of 
the  Input  table  to  be  Interpolated 

Y 

is 

the  array  containing  the  ordinates 
of  the  Input  table  to  be  Interpolated 

N 

is 

the  dimension  of  the  XX  and  YY  arrays 

XX 

is 

the  array  containing  the  abscissas  at 
which  the  interpolant  Is  to  be  evaluated 

YY 

is 

the  array  containing  the  ordinates 
obtained  by  evaluating  the  interpolant 
at  the  XX  values 

Description;  This  routine  Is  called  from  REZONE  and  SHF AX  for  the  purpose 
of  Interpolating  the  given  points  (X,Y)  to  find  the  values  YY  corresponding 
to  the  specified  XX  values.  The  routine  given  In  Appendix  D uses  standard 
linear  Interpolation.  The  routine  assumes  that  the  Input  data  In  the  X 
and  XX  arrays  are  Increasing;  l.e.,  X(I)  < X(I  + 1)  and  XX(I)  < XX(I  + 1). 

11.3  REZONE 

Calling  sequence:  CALL  REZONE  (NCNEW,MCNEW,R0LD,PHI0LD,DCUB,DARRl,DARR2, 

DARR3 , DARR4 , ND IM , MDlM) 


where 

NCNEW 

is 

the  number  of  points  in  X direction 
for  the  run 

MCNEW 

is 

the  number  of  points  in  Y direction 
for  the  run 

HOLD 

is 

a dummy  array  used  to  store  R array 
from  input  tape 

PHIOLD 

is 

a dummy  array  used  to  store  the  PHI 
array  from  Input  tape 

r^'T" 
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DCUB 

is 

an  array  used  to  store  the  P,U,V,W 
arrays  from  input  tape* 

DARR1,DARR2,DARR3 

are 

temporary  storage  arrays  corresponding 
to  the  Index  M 

DARR4 

is 

temporary  storage  array  corresponding 
to  the  index  N 

NDIM 

is 

the  value  of  the  dimension  for  the 
N index 

NDIM 

is 

the  value  of  the  dimension  for  the 
M index 

Description;  This  routine  must  be  used  when  the  coordinates  r and 
of  the  Initial  data  on  the  Input  tape  are  different  than  the  r,(f  coordinates 
corresponding  to  the  computational  mesh  for  the  run.  The  routine  generates 
Initial  data  at  the  points  of  the  computational  mesh  by  interpolating  the 
data  obtained  from  the  Input  tape.  The  interpolations  are  performed  In 
INTRPL  (see,  Sec.  11.2).  Instructions  for  using  the  routine  are  given 
in  the  User's  Manual. 

11.4  RGAS 

Calling  sequence;  CALL  RGAS  (PX,  RX,  SX,  NUMX) 


where 

PX 

Is 

pressure 

RX 

Is 

density 

SX 

Is 

entropy 

NUMX 

is 

a flag  indicating  mode  of  operation 
(see  below) 

Description;  This  routine  was  developed  at  NASA  Ames  to  provide 
thermodynamic  properties  of  13  different  gas  mixtures.  The  variable 
NGAS  Indicates  which  mixture  Is  to  be  used.  When  NUMX  is  4,  pressure 


*Note  that  the  use  of  DCUB  in  this  routine  requires  that  the  arrays  P,U,V,W 
are  consecutive  In  COMMON. 
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and  density  are  input  and  entropy  (SX) , enthalpy  (HX) , sound  speed  (AX) 
and  temperature  (TX)  are  found  directly  using  table  look-ups.  When 
NUMX  Is  5,  entropy  and  pressure  are  Input  and  an  Iterative  procedure  Is 
used  to  determine  density.  This  value  of  density  and  the  given  pressure 
are  then  used  to  find  the  other  variables  (as  in  the  case  NUMX«=4) . If 
NTEST  Is  non-negative,  perfect  gas  relations  are  used.  In  this  mode  GX 
contains  y and  RRX  the  perfect  gas  constant.  The  variables 
AX, HX,TX,RSX,GX, NTEST, NGAS  are  transmitted  to  and  from  the  routine  via 
COMMON/RGASS . For  a more  detailed  description  of  RGAS  see  the  following: 
Eaton,  R.  R.  and  Larson,  D.  E.  "Improved  Real  Gas  Routines  for  Sandla's 
NASA  Ames  Flowfleld  Program",  SAND  75-0493,  Feb.,  1976. 

11.5  HRGAS. ENTRY  ARGAS 

Calling  sequence:  CALL  HRGAS  (PX,RX,QX,N1) 


where 

PX 

Is 

pressure 

RX 

Is 

density 

QX 

Is 

sound  speed  square 

N1 

Is 

a flag  Indicating  mode  of 
operation 

Description:  This  routine  is  a shortened  version  of  RGAS  which 

calculates  only  enthalpy  (HX)  and  sound  speed  given  the  pressure  and  the 
density.  This  routine  Is  called  only  In  real  gas  calculations.  If 
N1  “ 2 only  enthalpy  is  returned;  for  N1  = 1 both  quantities  are  returned. 
ENTRY  ARGAS  Is  similar  e^tcept  that  the  values  of  pressure  and  density 
are  those  defined  In  the  last  HRGAS  call.  This  subroutine  must  be  used 
In  conjunction  with  RGAS  since  this  latter  routine  loads  the  COMMON 
arrays  used  by  HRGAS. 
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11.6  SERCH.  LOCATE 

These  routines  are  called  only  In  ROAS  and  HRGAS.  They  have  no 
direct  use  in  the  flow  field  calculation  and  therefore  will  not  be 
discussed  here. 


11.7  SHFAX,  SHFAXD 


CalllnR  sequence:  CALL  SHFAX  (I ,NDIM,MDIM,RN,UN,VN,WN,PN,DN,CPP, 

CZO , CON , CN , CNO , CPHIO) 

where  I is  (=1,2)  a flag  indicating  which  of  the  two 

criteria  is  used  for  axis  shifting  (c.f., 
sec.  11,  User's  Manual) 

NDIM  is  the  value  of  the  dimension  for  the 
N index 

MDIM  is  the  value  of  the  dimension  for  the 
M index 


RN,UN,VN,WN,PN,CPP,  are  dummy  storage  locations 
CZO , CON , CN , CNO , CPHIO 


Description:  SHFAX  is  called  when  the  coordinate  system  is  to  be 

shifted  by  a parallel  displacement  of  the  z axis  in  the  x-z  plane  (see 
Fig,  1).  This  procedure  is  used  in  bent  nose  calculations.  For  a 
discussion  of  this  mode  of  calculation  see  the  user's  manual.  The 
coordinate  system  is  shifted  by  the  amount  ZAS  (see  user's  manual  for  explana- 
tion of  this  and  other  parameters  used).  The  x,y,z  coordinates  of  the 
-aw  (shifted)  origin  in  the  original  system  is  (-  ZAS, 0,0).  The  routine 
determines  the  flowfield  variables  and  shock  geometry  for  restarting  the 
calculation  on  the  initial  plane  in  the  shifted  coordinates  which 
corresponds  to  the  last  computational  p’ me  in  the  original  coordinate 
system.  This  is  performed  using  bilinear  interpolation  of  the  known  flow 
field  in  the  original  coordinate  system.  The  aerodynamic  moments  are  also 
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referenced  to  the  new  origin.  The  flow  variables,  shock  geometry,  and 
moments  In  the  original  coordinates  are  Input  from  CCMMON;  also  the 
corresponding  quantities  In  the  shifted  coordinates  are  output  using 
COMMON.  The  dummy  storages  are  used  Internally  for  the  interpolations. 
SHFAX  is  called  from  SHFAXD  (see  below) . ,, 

Calling  sequence:  CALL  SHFAXD  (1,NDIM,MDIM,  CV,CVP,CP,CZO,CON, 

CN,CNO,CPHIO) 


I 

is 

(=1,2)  a flag  Indicating  which  of  the  two 
criteria  is  used  for  axis  shifting  (sec.  11, 
User's  Manual) 

NDIM 

is 

the  value  of  the  dimension  for  the 

N index 

MDIM 

is 

the  value  of  the  dimension  for  the 
M Index 

CV,CVP,CP,CZO,CON,CN, 

are 

dummy  storage  locations 

CNO.CPHIO 

Description;  This  routine  calls  SHFAX.  It  sets-up  -the  Summy 
storages  used  in  SHFAX. 


I 


h' 


\ 


134 


NSWC/WOL/TR  77-28 


12.  INPUT -OUTPUT  SUBROUTINES 
12. 1 BODY,  ENTRY  BODYW,  ENTRY  BODYR 
Calling  sequence:  CALL  BODY (M) 

where  M is  the  line  index;  i.e.,  Y = Y (M) 

Description:  This  routine  inputs  to  the  program  the  values  of  the 
body  shape  function,  b(<j),z),  and  certain  of  its  derivatives  (see  below) 
for  <j>  = PHI(M)  and  z = Z.  Where,  the  values  of  PHI(M)  and  Z are  input  to 
the  routine  from  COMMON.  The  coordinate  system  in  which  the  function 
b((j),z)  is  specified  is  illustrated  in  Fig.  1.  The  specific  COMMON 
variables  which  are  defined  in  this  routine  are: 


B(M)  = b , 

BZ(M)  = b , 
z 

BPHI (M) 

BZPHI  = b , , 

BZZ  = b , 

zz 

BPHPHI 

= b.. 

(j)4> 

This  subroutine  must  be  supplied  by  the  user  to  describe  the  particular 

body  geometry  to  be  considered  in  the  calculation.  The  only  programming 
■ f 

; requirements  are  that  the  COMMON  block  CBODY  (also  CBENT  If  bent  nose  is  used) 

mus.;  be  included  in  the  subroutine  and  the  above  quantities  must  be  defined 

for  (P  = PHI(M)  and  z = Z.  The  version  of  this  routine  supplied  in  the 

listings  (Appendix  D)  is  discussed  in  the  User's  Manual. 

The  entries  BODYW  and  BODYR  are  used  only  once  in  the  program  (both 

are  called  from  Section  1 of  MAIN) , The  entry  BODYR  is  used  to  read-in 

j and  compute  the  parameters  used  in  the  body  shape  function.  The  entry 

' BODYW  is  used  to  print-out  on  the  heading  page  a message  which  identifies 

*•  * 

' the  particular  geometry  being  considered  in  the  run. 


h- 
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12.2  FIELD 

CalllnR  sequence:  CALL  FIELD 

Description:  The  purpose  of  this  routine  is  to  prlnt-out  the  flow 

field  data  for  a fixed  axial  station,  Z,  where  Z Is  Input  from  COMMON. 

The  execution  of  this  routine  Is  controlled  by  the  user  with  various  output 
options  (see  the  User's  Manual  for  descriptions  and  Instructions).  This 
routine  can  be  easily  adapted  to  suit  the  Individual  needs  of  the  user. 

Note  that  for  each  entry  to  the  routine,  the  final  (or  corrected)  values 
of  the  flow  variables  at  the  axial  location  Z are  contained  in  the  COMFKDN 
array  P,D,U,V,W,ASQ.  The  specific  outputs  contained  in  the  version  of 
FIELD  given  In  the  listings  are  discussed  in  the  Users'  Manual. 

12.3  OUT 

Calling  sequence:  CALL  OUT 

Description:  This  routine  is  executed  when  the  flow  field  calculation 

is  completed.  The  purpose  of  the  routine  is  to  print  out  on-line  surface 

pressure  distributions  and  force  and  moment  data.  A description  of  these 

outputs  is  given  in  the  Usei^s  Manual.  The  data  to  be  printed  out  in  this 

routine  is  read  from  the  output  tape  (TAPE16)  generated  during  the  run. 

The  routine  converts  the  force  and  moment  data  to  coefficient  form  and  computes 

the  centers  of  pressure  (when  defined)  (see.  Section  5 for  definitions) . 

The  values  of  A ,,  z , z c used  in  the  definitions  of  these  quantities 
I ref  c ret 

t are  input  in  this  routine  (see  User's  Manual' for  details). 

[ 12.4  RECOVR,  SAVE 

Calling  sequence:  EXTERNAL  SAVE 

CALL  RECOVR  (SAVE,  FLAGS,  CHECKSUM) 


J 
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where 


SAVE 


FLAGS 


CHECKSUM 


the  name  of  subroutine  to  be 
executed  if  flagged  conditions  occur 

the  octal  value  for  conditions  under 
wliich  recovery  code  is  to  be  executed. 
In  this  code,  subroutine  SAVE  is 
executed  if  there  is  an  arithmetic  mode 
error,  PP  call  or  auto-recall  error, 
or  time  or  storage  limit  exceeded. 

has  to  do  with  taking  check  sums. 

If  equal  to  0 no  checksum  desired. 


Description:  RECOVR  is  a special  recovery  routine  supported  by  CDC 

on  their  operating  systems  SCOPE  3.4  and  KRONOS  2.1.  The  RECOVR  subroutine 
allows  a user  program  to  gain  control  at  the  time  that  abnormal  job  termina- 
tion procedure  would  otherwise  occur.  In  this  program,  subroutine  SAVE 
is  called. 

Calling  sequence;  CALL  SAVE  (E7,EHRUN,RAP0) 


where 


EX  is  a 17  word  integer  array  of  the  exchange 
package.  The  program  does  not  use 
this  array. 


ENRUN  is 


RAPO 


a flag  that  determines  the  type  of 
program  termination.  The  program  does 
not  use  this  flag. 

may  be  an  array  starting  at  RA  + 1. 

The  program  does  not  use  this  array. 


Description;  The  subroutine  SAVE  calls  subroutine  FIELD  (see.  Sec.  12.2) 
for  the  last  lERRPR  steps  of  the  calculations.  See  the  User's  Manual  for 
a description  of  the  variable  lERRPR.  Also,  subroutine  SAVE  calls  subroutine 
OUT  (see.  Sec.  12.3). 
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12.5  TRANFD 


Calling  sequence;  CALL  TRANFD 

Description:  This  routine  Is  called  when  the  mesh  spacing  In  the 

radial  direction  Is  read  In  from  cards  (see  userh  manual  for  details). 

The  routine  Is  called  only  once  In  the  program  (from  Section  1 of  MAIN). 

TRANFD  reads  In  the  values  of  x * f(X  ) to  be  used  In  the  calculation 
n 

and  computes  numerically  the  derivatives  f^^  and  f^  (c.f . , sec.  4.3). 

The  quantities  x •=  f,  f^^,  and  f^^^  are  returned  using  the  CCMMON  arrays 
SFD,  SFXD,  and  SFXXD,  respectively.  Note  that  NSFD  Is  the  number  of 
radial  points  In  the  computational  mesh. 


12.6  TRANGD 

Calling  sequence:  CALL  TRANGD 

Description:  This  routine  Is  called  when  the  mesh  spacing  In  the 

<(i-dlrectlon  Is  read  In  from  cards  (see  user's  manual  for  details).  The 

routine  Is  called  only  once  In  the  program  (from  Section  1 of  MAIN) . 

TRANGD  reads  In  the  values  of  <Ji  ■ <|i..  g(Y  )**  to  be  used  In  the  calculation 
0 m 

and  computes  numerically  the  derivatives  g^  and  g^y  (see,  sec.  4.3).  The 
quantities  g,  gy,  and  gyy  are  returned  using  the  COMMON  arrays  SGD,  SGYD, 
SGYYD  respectively.  Note  that  NSGD  is  the  number  of  ij>  planes  in  the 
computational  mesh.  When  a symmetric  problem  Is  being  computed  TRANGD 
also  computes  gy  and  gyy  on  the  fringe  planes  -AY  and  1+AY.  These  quantities 
are  returned  using  the  COMMON  variables  GYMDY  and  GYYMDY  (for  Y » -AY) 
and  GYIPDY  and  GYYIFDY  (for  Y - 1+AY). 


*In  this  option,  the  mesh  clustering  function  f(X,Y,Z)  Is  assumed  Inde' 
pendent  of  Y and  Z. 

**In  this  option,  the  mesh  clustering  function  g(Y,Z)  is  assumed 
Independent  of  Z. 


138 


NSWC/WOL/TR  77-28 


1 


APPENDIX  D 


i- 

I 


LISTINGS 


In  this  appendix  the  fortran  listings  of  the  code  are  given  (with 


I 

1 

I 

i 


i 


f 

I 


the  exception  of  RECOVR  which  is  a CDC  system  routine).  The  listings 
given  here  contain  the  error  mode  update,  IDENT  DUMP,  which  Is  described 
In  sec.  12.2  of  the  User's  Manual. 

Page  No. 
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A 
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D3CSS 

5 

c 

GIVEN 

BY  RsBIPHI.Z) 

03CSS 

6 

c 

PRINCIPLE  FEATURES  ABF  AS  FOLLOWS 

D3CSS 

7 

c 

1. 

weak  conservation  form  for  poE"s  are  solved.  I.E. 

03CSS 

8 

c 

CU  SUB  Z = -CF  SUH  X - CG  SUB  V - CE 

03CSS 

9 

c 

?. 

conservation  dependent  variables.  CU,  ARE  RELATED  TO  THE 

D3CSS 

10 

c 

NON-CONSERVATION  VARIABLES  (PRESSURE  (P),  DENSITY  (0). 

03CSS 

11 

c 

velocity  COMPS  (u.v.wn  ry  the  following  eons. 

D3CSS 

12 

c 

CU ( 1 ,N.M) *0*W (N.M) 

D3CSS 

13 

c 

CU(2,N,M)=P(N,M).0(N.m)«w(n.m)»»2 

03CSS 

lA 

c 

CU(3,N,MI»0(N,M)»m(N»M)»U(N,M) 

03CSS 

15 

c 

CU(A.N.MIsO(N.M)*M(N.M)*V(N.M) 

03CSS 

16 

c 

3. 

MACCORMACK  2ND  ORDER  SCHEME  USED  AT  INTERIOR  PTS. 

03CSS 

17 

c 

3.1 

IE  interior  pressure  IS  non-positive.  THEN  THE 

D3CSS 

18 

c 

CONSERVATION  QUANTITIES  ARE  REDEFINED  USING  AVERAGES 

D3CSS 

19 

c 

IN  X DIRECTION 

D3CSS 

20 

c 

A. 

AT  WALL,  characteristic  COMPATABILITY  RELATIONS  ARE  USED 

D3CSS 

21 

c 

IN  PREDICTOR-CORRECTOR  MANNER 

D3CSS 

22 

c 

NOTE  that  at  THE  WALL 

03CSS 

23 

c 

CUd.l)  STORES  WALL  LOG(P) 
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2A 

c 

CU(?.l)  STORES  WALL  ENTROPY 

03CSS 

25 

c 

CU(3.1)  STORES  V2»V . ( BPHl /R ) *U 

D3CSS 

26 

c 

*.l 

WALL  ENTROPY  RELAXATION  IS  AN  OPTION 

03CSS 

27 

c 

s. 

SMOCK  SHAPE  (C)  ANO  SMOCK  SLOPES  (CZ)  AND  (CPMI)  ARE 

D3CSS 

28 

c 

determine  in  preoictor-corrector  manner. 

03CSS 

29 

c 

NOTE  THAT  AT  THE  SHOCK  (N*NC) 

D3CSS 

30 

c 

CU(l.NC)  STORES  C 
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c 

CU(2.NC)  STORES  CZ 

03CSS 

32 

c 

CU(3.NC»  STORES  CPMI 
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c 

6 • 

either  PERFECT  GAS  (CONSTANT  GAMMA)  OR  REAL  GAS 

D3CSS 

3A 

c 

equilibrium  thermo,  can  be  used 

03CSS 
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c 

7. 

MESh  clustering  transformations  in  the  radial  ANO 

D3CSS 

36 

c 

circumferential  directions  are  incorporated 

03C5S 

37 

c 

8. 

The  user  can  select  either  of  two  problems  - 

03CSS 

38 

c 

(11  the  symmetric  problem 

D3CSS 

39 

c 

(2)  THE  NON-SYMMETRIC  PROBLEM 

D3CSS 

AO 

c 

8.1 

IN  THE  symmetric  problem  - BODY  IS  SYMMETRIC  WITH 

03CSS 

Al 

c 

RESPECT  TO  PITCH  PLANE  (ZERO  YAW).  PHI»0  ANO 

03CSS 

A2 

c 

PMI»180  (OEGS)  ARE  symmetry  PLANES.  P.D.U.W  ARE  SYMM. 

03C5S 

A3 

c 

ANO  V IS  ANTI-SYMM,  at  SYMM,  PLANES. 

03CSS 

AA 

c 

8.2 

IN  The  NON-SYMMETRIC  PROBLEM  - BODY  HAS  NO 

D3CSS 

A5 

c 

RESTRICTIONS  ANO  YAW  MAY  BE  NON-ZERO.  ALL  FLOW 

D3CSS 

Aft 

c 

variables  are  PEBIOOIC  with  period  3 3ft0  (DEGS) 

D3CSS 

A7 

c 

R. 

this  version  has  provisions  for  local  expansion  and 

D3CSS 

AB 

c 

COMPRESSION  JUMPS  AT  discontinuities  of  bz  ano/or  bpmi 

03C55 

A9 

c 

IN  z direction 

03CSS 

50 

c 

10. 

this  version  has  provisions  for  bent  nose  boot 

D3CSS 

51 

c 

geometries  requiring  a shift  of  axes  (SEE 

03CSS 

52 

c 

USERS  manual  for  DETAILS) 

D3CSS 

53 

c 

03CSS 

5A 

common 

NC.MC.K.PINF.OINF.PMIO. IDYAW.PI.RAD 

NEWCOM 

1 

common 

YZ (3) .YPHI (3) ,C(25) ,CZ(25) .CPMI (25) ,R(20.25) 

NEWCOM 

2 

COMMON 

0(20.25) ,P(20.2S) .0(20.25) «V(20.2S) ,W(2n,2S) .ASQ (20.25) 

NEWCOM 

3 

common 

CU(*.20,25) .CUP (A. 20. 25) 

NEWCOM 

A 
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C 


( 


c 


•••  END  OF  olank  common  ••• 

COMMON  /CBEnT/  ZBB (25) . ALNS.OST. AUON.BFTA.RSN.CENUF.OEL 1 1 .oelta 
1 .C0SRN.EPSQ,ZMAXStPI02.TANeN. IBN.MN. THFTABN 
common  /CTMaNG/  NSGO.SGO(25» .SGY0(?5) .S0YV0(25) 

1 .GYMOY.GyYMor.GYiPOV.GYylPOr 

2 ,MCP 

common  /CTRanF/  NSFO.SFO)20) •SF*n(2n) ,GFXXn(20) 
common  /CBony/  z .azz tflPHPHi ,pzpmi . tanco.dflz 

1 .PHI (25) .B (25) ,az (25) .BPrtI (25) ,COSP“I (25) .SINPHI (25) 
common  /CBOOYP/  DZ.PHnj.PHl2J.BZT(^)  .BPhTTO)  ,HZZT(3) 

1 .BPMPHT (3) .BZPHIT (3) .820(25) .RPmI0(25) .BPmPhO (25) .dZPHIO (25) 

2 .BZZ0(25) 

common  /CEVAL/  NCFL.JCFL.MCFL.CFL.BJ 

common  /CDECOOE/  GFF,GG.6IM1,hINF.V1INF.V2INF.WINX.0INF2 
I . ICHECK. X1K1NEG.X1K1NP2.GC (20.25) 
common  /CINTEG/  FN.FY.FA.MX.MY.MZ.FNZ.FYZ.FAZ.mxZ.MYZ.MZZ 
1 .0Y03.MA.GY(25) 

real  MX.MY.mZ.MXZ.MYZ.MZZ 

common  /COUT/  ACH.ATTA. yam, ZENO. XlNDEF.VlNF.StNF 
1 .NTARGET.TARGETZ ( 100) 

common  /CMAlL/  PZ.V2Z.SZ,ISMM00.m0D1.NJMPKT,NJMKTC,KCFL.KFAC 
1 .PZC0R(25) 

common  /CSAVE/  IERRPR.MAS 

common  /CSMOCK/  OCZ.OCZZ.OCPMZ.POIF.SPDIF.OINX.DI INF,02INF 
1 ,UZC0R(a,25) 

common  /8LK01/  CZY(3) .CPHlYO) ,V2(3) .VOWY (3) ,PWY (3) ,SMY (3) 

1 .UNOR(3.2) .CF (4,20,2) .06(4.20.3) ,CE (4.20.2) 

common  /BLK02/  THETA, OY, TG4(3) ,TG5(3) ,T66(3) 

1 ,X(20) .XZ(20,2) ,XR(20,2) .XPHI (20,2) ,Y (25) 

2 ,TF4(20,2) ,TF6(20.2) .TF7(20,2) 

common  /etKoa/  ICFL.AZO)  ,A3(3)  ,A40)  ,A5(3)  .ATO) 

1 ,IJUMP(25) .IJUMPl (25) ,IJMPKT(25) 
common  /0LKO4/  6AMMA,60,6O,6E.6A2,DOX,DOY,HOT2,ELIM.LCNT,ISWSMO 
1 ,SM(2S) ,GM(Z0,25) 

common  /RGAsS/  AX.MX.TX.RRX.GX.nTEST.NGAS.NFIRST 
dimension  k6uT(5) ,ZPRINT(5) 

external  save 

NCMAX  must  be  The  same  number  as  in  the  COMMON  statements 
corresponding  to  the  number  of  radial  points. 

MCMAX  must  be  the  same  number  as  in  the  common  statements 
CORRESPONDING  TO  THE  NUMBER  OF  TANGENTIAL  PLANES 

DATA  (NCMAXrZO) , (MCMAX=25) 

namelist  /INPUTI/  KA.ZENfc.EACTOR.OZPRINT.KDUT.ZPRINT.IZONE. 

1 NCNEW.MCNEN,  IPC,K').K1NEG,  ISWSMO,  ISNMOO.MOOI. 

2 ZMOOION.ZMOOIOF.PHI 1 JD.PHI2J0.ZCFL1 .ZCFL2.KCFL.KFAC. 

3 NJMPKT.NJMKTS.NTA^GET.TAPGETZ.IERRPR 

4 .ISTART.kSTART.ELIM.lCNT.IPRCFL.ISNOIF.NSGO.NSFO 


SECTION  I 

THIS  SECTION  IS  EXECUTED  ONLY  ONCF , 

AT  initial  program  entry. 
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COUT 

2 
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•••  BEAD  IN  INITIAL  DATA  AND  PBOGHAm  CONTBOLS  ••• 

KA  IS  THE  MAXIMUM  NOMBEP  OF  STEPS  TO  BE  TAKEN 

zeno  is  The  last  z value 
factos  is  the  cel  factos 

OZBBINT  IS  the  Z INCSEhENT  USED  FOB  PBINTING 
KOUT(I)  IS  the  NUMBEB  of  steps  BETkEEN  point  OUTS  KHEN 
ZPPINT(I-l)  .LE.  Z .LT.  ZPOINT(I) 

IZONE  3 0 HEANS  DO  NOT  BEZONE 

a 1 means  BEZONF 

NCNEW  is  The  NUMBEB  OF  POINTS  IN  OAOIAL  OIBECTION 

MCNEW  is  The  NUMBEB  OF  PLANES  IN  TANGENTIAL  OIBECTION 

iPc  * 1 then  fobkabo  oiffebence  fob  pbeoictob  step 

BACKWABD  OIFFEBENCE  FOB  COOBECTOfl  STEP 
IPC  = 0 THEN  BACKWABD  OIFFEBENCE  FOB  PBEOICTOB  STEP 
FOBWABO  OIFFEBENCE  FOB  COBBECTOfi  STEP 
KlKlNEG  IS  the  K in  THE  I-K-1  SMOOTHING  OF 

consebvation  vectobs  if  p is  negative 

ISmSMO  = ISKSMO  MEANS  EXTBAPOlATE  MALL  ENTBOPY  FOB  ISMSMO  PLANES 
» 0 MEANS  NO  EXTBAPOLATION  OF  WALL  ENTBOPY 
ISWMOO  » 0 MEANS  MOO  0 FOB  WALL  8.C. 

» 3 MEANS  MOO  3 FOB  WALL  B.C. 

MOOI  » I means  SECONO  OBOEB  accuracy  at  wall  except  AFTER 
OISCONTINUITIES  IN  0Z  ANO/OR  BPHI 
X 0 means  no  SECONO  ORDER  ACCURACY 
ZMOOION  IS  the  Z value  AT  WHICH  TO  TURN  ON  SECOND  ORDER  ACCURACY 

ZMOOlOF  IS  THE  Z VALUE  AT  WHICH  TO  TURN  OFF  SECONO  ORDER  ACCURACY 

(PHllJOtPHtZJOl  IS  the  PHI  OPEN  INTERVAL  IN  WHICH  NOT  TO 
USE  Subroutine  jump 

(ZCELI.ZCFlZ)  is  the  Z OPEN  INTERVAL  TO  USE  FACTOR/KFAC 
AS  THE  CFL  factor 

FCFL  IS  THE  number  of  STEPS  AFTER  AN  EXPANSION  JUMP  TO  USE 
FACTOR/KFAC  as  the  CFL  FACTOR 
NJmpkT  is  the  maximum  NO  OF  STEPS  AFTER  AN  EXPANSION  JUMP 
TO  SET  X derivatives  TO  ZERO  AT  WALL 
NjmkTS  is  the  maximum  no  OF  STEPS  AFTFB  A COMpo£SSION  JUMP 
TO  SET  X DERIVATIVES  TO  ZERO  AT  WALL 
NTaBGET  is  The  number  OF  z TARGET  OQINTS 
TABGETZ  is  The  array  OF  ThE  Z TARGET  POINTS 

IErBPB  - The  last  IEBBPR  steps  will  be  PRINTED  IF  AN  ERROR  OCCURS 
ISTART  » I MEANS  RESTART  FROM  TAPEIS 

= 0 MEANS  00  NOT  RESTART  FoqM  TAPE15 
KSTART  IS  THE  K STEP  NO.  ON  TAPE15  AT  WHICH  TO  RESTART 
ELIM  ANO  LCNT  are  error  ANO  NUMBEB  LIMITS  ON  ITERATIVE  PROCEDURES 
IPRCFL  is  the  no.  of  STEPS  BETWEEN  PRINTOUTS  OF  CFL  INFORMATION 
ISWOIF  » 1 then  the  DIFFERENCING  IS  SWITCHED  FROM  STEP  TO  STEP 
= 0 THEN  OIFFEBENCING  IS  NOT  SWITCHED 
NSGO  IS  the  no.  of  PHI"S  TO  BE  BEAD 

SGO  IS  the  ARRAY  OF  PHt"S  (DEGREES)  READ  IN  SUBROUTINE  TRANGD 
NSFO  IS  THF  no.  of  SF(X)"S  TO  BE  READ  IN  SUBROUTINE  TRANFO 
SFO  IS  THE  ARRAY  OF  SF(X)»S  READ  IN  SUBROUTINE  TRANFO 

PI»A.»ATAN(I.)  S RAO»PI/180. 

00  S 1-1.5 

KOUT(I)-20  A ZPRINT ( I ) -1000000. 

5 continue 

KA=?000  $ factor-. 9 $ DZPR INT- 1 000000 . 
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izone»o  s ipc=n 

K1X1NEG=2  * ISWSMOaO  $ ISWM0D=3  % M001=l 

ZMOOlONslOOOOOO.  $ ZM0010F=1000000.  $ PHI1JD=0.  $ PHI2j0=0. 
ZCFl1*0.  I 7CFl2=0.  S KCFL=0  $ XFAC=3  % NJMPKT=0 
NJMKTSa*  S MTAPGET=0  J ISTART=0  \ KSTART=n  « Ifbrpp=-i 
IP»CFL=1  $ IS«niFaO  $ NSGD=0  S MSFO=0 
ELlMs.OOl  S LCNr=20  S r8N=0  t HU=0. 
rear  (StlNPlITl) 

call  booyr 

PHI (1)=0. 

call  ootr 

ICP=1-IPC  * M0010N*0 
XlKlNEGsKlKlNEG  * X IK 1NP2«X IK INEG*2 . 

PHI 1J=PHI 1J0»RAD  S PMI2JpPHr2J0»RA0 

ICFL=0  $ FACJMPaFACTOR/KFAC  » FACT1=FACJMP  S KFACUl 
NJMkTC=KFAC«NJMKTS  * ITARGET*! 

NC  IS  THE  number  of  POINTS  IN  RADIAL  DIRECTION 

MC  IS  THE  NUMRER  of  PLANES  IN  TANGENTIAL  DIRECTION 

NA  IS  THE  NUMBER  OF  INTERVALS  IN  RADIAL  DIRECTION 

MA  IS  THE  NUMBER  OF  INTERVALS  IN  TANGENTIAL  DIRECTION 

ATTACK  IS  THE  ANGLE  OF  ATTACK  IN  DEGREES 
YAW  IS  THE  SIDESLIP  ANGLE  IN  DEGREES 
ACH  IS  THE  MACH  NUMBER 

K IS  THE  number  of  STEPS  IN  THE  AXIAL  DIRECTION 

IF  JIERRPR  .GE.  0)  CALL  RECOVRISAVE.TB.O) 

IERRPR>I ABS ( lERRPR) 

IF  (ISTART  .EQ.  0)  GO  TO  9 

7 READ  (IS)  NC«MCtATTACKtYAW«ACH,GAMMA*PINF.OINF,PHIO.KfZ 
A «N6AS<NTEST.RRX 

1 .FN,FY«FAtMXfMY,MZ«FNZ«FYZ*FAZ»MXZ.MYZ*MZZ 

2 . (PHI (M) ,C(M) «CZ(M) «CPHI (DO  •M«1,MC> 

3 . ( (R(NtM| ,U(NtMI fVINtM) ,W<N»M) «P(NtM) »0(N»M) »M«1 «MC) (Nsl f NC) 
IF  (EOFdS))  12»e 

9 WRITE  (16)  NC«MC. ATTACK, YAW. ACH, gamma. PINF,OINF.PHIO*K,Z 
A ,NGAS,NTFST,RRX 

1 ,FN,FY,Fa,MX,MY,MZ,FNZ,FYZ,FAZ,MxZ,mvZ,mZZ 

2 , (PHI (M) ,C (M) ,CZ(M) ,CPHI (M) ,Msl,MC) 

3 , ( (R(N,M) ,U(N,M) ,V(N,M) ,W(N,M) ,P(N,M) ,D(N,M) ,M=I ,MC) ,N»1,NC) 
IF  (K  ,LT.  KSTART)  go  to  7 
GO  TO  15 

9 READ  (3)  NC.MC, ATTACK, YAW, ACH, GAMMA, PINF,DINF,PHI0,K,Z 
A ,N(iAS,NTEST,flRX 

1 ,FN,FY,FA,MX,MY,MZ,FNZ,FYZ,FAZ,MxZ,MYZ,MZZ 

2 . (PHI (M) ,C(M) ,CZ (M) ,CPHI (M) ,M«1,MC) 

3 ,((R(N.M),U(N,M),V(N,M),W(N,M),P(N,M),D(N.M),M=I,MC),N=1,NC) 
IF  (E0F(3))  10,15 

10  WRITE  (6,AOnO) 

4000  F0RMAT(»1  NO  DATA  ON  TAPES  — STOP  — •) 

STOP 

12  WRITE  (6.400S)  K, KSTART  S STOP 
4005  format (1H1,»TME  LAST  K ON  TAPE15  IS*,I5,*  LESS  THAN*,I5, 

1 • STOP  •) 

C 

c •••  parameters  ••• 

15  ATTApATTACK  S ATTACK«ATTACK*RA0  t OZ«0. 
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IF  (NSGO  .GT.  0)  CALL  TRANGO  D3CSS 

IF  (NSFO  .GT.  0)  CALL  TRANFO  03CSS 

SInaL*SIN(ATTACK)  S COSAL»COS<ATTACtO  03CSS 

YA»YAIK»PI/IR0.  t SIN8ET  = SIN(YA)  S C0SBET»C0S(VA)  D3CSS 

POIF*PInF/OINF  03CSS 

0lNF2=0INF»niNF  D3CSS 

NFIQSTalOO  D3CSS 

GX=GAMMA  D3CSS 

SiNFsO.  03CSS 

IF (NTEST.GE.OIGO  to  50  03CSS 

call  RGASIPINF, dine. sine. A1  D3CSS 

MlNF»MX  03CSS 

gamma* 1./ ( 1,-PINF/(0INF«M INF) ) 03CSS 

VINF*AX*ACH  03CSS 

GO  TO  50  D3CSS 

50  VINF*SQRT (GAMMa*PINF/OINFI «ACH  03CSS 

HINF*GAMMA»PINF/(<GAMMA-1. ) •OINF)  03CSS 

60  HOT2a2.*MINF«VINF*»2  D3CSS 

GlMlsl. -gamma  03CSS 

GIlsGAMMA  D3CSS 

G0*1./(GAMMA-1.)  D3CSS 

GA*gB*GAHMA  % GA2*2.*6A  D3CSS 

G0«.5/6B  D3CSS 

GE»G0*1.  D3CSS 

GFF*GAMMA*1,  03CSS 

GG»GFF/G8  03CSS 

XINX»C0S8ET*C0SAL*VINF  D3CSS 

VlINf»C0S8£T*SI(|4L»VINF  S V2INF»VINF»SIN8ET  D3CSS 

SPOIF«l./SORT(POtf ) D3CSS 

0INX»WINX*SP0IF  S OlINF«VUNF»SPOIF  $ 02INF*V2INF*SP0IF  03CSS 

IF  (NSFO  .LE.  0)  GO  TO  17  S IF  (NSFO  ,E0.  NO  GO  To  17  03CSS 

NCNC8»NSF0  % IF  (I20NE  .NE.  01  GO  TO  17  S I70NE»l  S MCNEW»MC  D3CSS 

17  CONTINUE  03CSS 

IF  (NSGO  .LE.  0)  60  TO  15  $ IF  (NSGO  .EO,  MO  60  TO  16  D3CSS 

MCNEW«NSGD  % IF  (IZONE  .NE.  01  50  TO  16  S IZONEsl  * NCNEW»NC  D3CSS 

15  IF  (IZONE  .NE.  0)  03CSS 

ICALL  rezone (NCnEW.MCNEK«ASQ.IJUMP,0,8Z0.BPHI0.P7Z0,XZ.NCMAX.MCmaX>  D3CSS 
NAsnC-1  * MCP*MC»1  $ MAsMC-1  S MCP2=MC*2  D3CSS 

MCM2*MA-1  $ IIC»A  03CSS 

DX*1./NA  S 0Y«1./MA  S 00Y*MA  S 00X»NA  S BJ»0X/0Y  03CSS 

IF  (IPC  .EQ.  0)  9J—0J  D3CSS 

Or03»Or/3.  D3CSS 

IF  (PHIO  .LE.  2.*PI-1.E-6I  GO  TO  Ifl  D3CSS 

C *•*  SET  variables  FOR  NON-SYMMETRIC  PROBLEM  (PHIO*360)  **•  03CSS 

COSPHI(MO=1.  * SINPHI(MO»0.  D3CSS 

MASsMA  S MCS»MC  % IOYAW«l  S MCM2S»MCM2  D3CSS 

GO  TO  21  03CSS 

C SET  variables  for  SYMMETRIC  PROBLEM  (PHIO*lflO)  03CSS 

18  MA5»MC  S MCS*MCP  * I0YA8»0  S MCM2S»0  D3CSS 

21  YO«-OY  S YMCP»l.*OY  D3CSS 

03CSS 

**•  print  The  heading  page  03CSS 

PHIoOmPHIO/RAO  03CSS 

WHEn*OATE (WHEN)  S CLTIM«TIME (CLTIM)  03CSS 

IVERSONbIO  03CSS 

00  150  1*1.1  D3CSS 

write  (6.3000)  IVERSON. WHEN. CLTIM  D3CSS 
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WHITE  (6.3010) 

03CSS 

252 

WRITE  (6.30P0)  KA. ZENO. FACTOR 

03CSS 

?53 

WRITE (6.3021 ) ELI M.LCNT 

03CSS 

254 

WRITE  (6.3030)  ZPRINT 

D3CSS 

255 

WRITE  (6.3040)  KOUT 

D3CSS 

256 

WRITE  (6.3045)  OZPRINT 

D3CSS 

257 

WRITE  (6.30S0)  ACH.ATTA.TAW.VINF 

03CSS 

258 

WRITE  (6.3051)  PINF.OINF.HtNF.MOT2/?. .SINE 

03CSS 

259 

IF  (NGAS  .LF.  0)  WRITE  (6.3054)  GAMMA. RR)( 

CORRl 

1 

IF  (NGAS  .GT,  0)  WRITE  (6.3056)  NGAS 

D3CSS 

261 

WRITE  (6.3060)  PHIOO 

03CSS 

262 

WRITE  (6.3070)  Z 

03CSS 

263 

WRITE  (6.3080)  NA.MA 

03CSS 

264 

IF  (IZONE  .NE.  0)  WRITE  (6.3090) 

03CSS 

265 

call  800YW(IOUM) 

03CSS 

256 

call  TRANGW (OUM. IOOM, IOUM) 

D3CSS 

267 

call  TRANFW(IOUM.IOUM.IOUM) 

03CSS 

268 

WRITE  (6.4010) 

D3CSS 

269 

4010 

format (//////. ?5X.«A00ITI0NAL  features*) 

D3CSS 

270 

IF  (IPC  .£Q.  1)  WRITE  (6.3108) 

03CSS 

271 

IF  (IPC  .EQ.  0)  WRITE  (6.3109) 

03CSS 

272 

IF  (ISWSMO  ,NE.  0)  WRITE  (6.4019)  ISWSMO 

D3CSS 

273 

IF  (ISWSMO  .EQ.  0)  WRITE  (6.4020) 

03CSS 

274 

IF  (ISWHOO  .EO.  0)  WRITE  (6.4029) 

03CSS 

275 

IF  (ISWMOO  .EO.  3)  WRITE  (6.4030) 

03CSS 

276 

IF  (ZMOOION  .LE.  ZENO)  WRITE  (6.4035)  ZM0D10N 

D3CSS 

277 

IF  (MOOI  .E(J.  1)  WRITE  (6.4040)  ZMOOlOF 

03CSS 

278 

WRITE  (6.3206)  KIKINEG 

03CSS 

279 

WRITE  (6.3152)  PHI1JO.PHI2JO 

D3CSS 

280 

WRITE  (6.3135)  FACJMP. ZCFLl .ZCFL2 

03CSS 

281 

WRITE  (6.3136)  FACJMP. WCFL 

03CSS 

282 

WRITE  (6.3147)  NJMPKT.NJMKTS 

03CSS 

283 

IF  (ISWOIF  ,NE.  0)  WRITE  (6.4055) 

03CSS 

284 

150 

CONTINUE 

D3CSS 

285 

IF  (Z  .GT.  ZCFL2)  ZCFL1=2.*ZEN0 

D3CSS 

286 

3000 

format ( IMl .?OX.*PROGRAM  03CSS* .6X .*VERS ION*. 1 4 . 5X . *0ATE* . A 1 2 . 6X . 

03C5S 

2«7 

1 *TIME*.A12) 

03CSS 

288 

3010 

F0RMAT(llX.*3-0  SUPERSONIC  FLOW  - *. 

D3CSS 

289 

1 *flow  is  NONSTMMETRICAL*) 

D3CSS 

290 

3030 

FORMAT) 11X.*MAXIMUM  NO,  OF  STEPS  »*.I5.6X. 

D3CSS 

291 

1 *LAST  Z value  =*,1PEX5.6.6X,*CFL  FACTOR  »*.0PF6.3) 

03CSS 

292 

3021 

F0RmaT(11X.*ERR0R  limit  *.1PE12.4.2X.*MAXIMUM  number  of  iterations 

03CSS 

293 

1*.I5) 

03CSS 

294 

3030 

FORmAT(11X.*PRINT  controls  ARE*,SX,*ZPPINT*,5F12,2) 

03CSS 

295 

3040 

F0RMAT(11X,23X,*W0UT  *.5112) 

03CSS 

296 

3045 

format ( 11X.23X,*0ZPRINT*.F11.2) 

D3CSS 

297 

3050 

FORMAT ( 1 IX, *MACH  NO.  =* ,F8 .2 .6X , • ANGLE  OF  ATTACK  x*,F7.2,6X, 

D3CSS 

298 

1 *YAW  angle  x*,F7.2.3X.*VINF  »*.F10.2) 

D3CSS 

299 

3051 

FORMAT) 1 IX, *FREE  STREAM  PROPERTIES  , PINF  x *.1PE12.4.*  OINF  * • 

03CSS 

300 

1 .1PE12.4.*  HINF  **.1PE13.4,»  HO  »*.1PE13.4.*  SINF  »*,IPF13.4) 

D3CSS 

301 

3054 

format (1 IX. *PERFECT  GAS  (GAMMA  >*,F6.?.4X. 

CORRl 

2 

1 *GAS  constant  «*.1PE15.6.*)*) 

CORRl 

3 

3056 

format (11X.*REAL  gas  (GAS  NUMBER  IS*,I3.*)*> 

03CSS 

303 

3060 

FORmAT(11X.*FLOW  is  PERIOOIC  with  period  **.F7.2) 

D3CSS 

304 

3070 

FORmaT(11X.*CALC.  begins  at  Z x*.E15.7) 

03CSS 

305 

3080 

format ( 1 IX. *RA0IAL  intervals  Na  x*,I4.6X. 

03CSS 

305 

1 "TANGENTIAL  INTERVALS  MA  x*,i*) 

03CSS 

307 

! 
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30'J0  format  I 1 1 X , •«t  ZONE  the  MESH  !N  THIS  RUN*)  D3CSS 

3103  FORMAT) IHO. 10X.»FORwAWn  DIFFERENCE  fqP  RRFDICTOO  STEP  AND  *,  03CSS 

1 .haCkmARD  OIFFERENCF  for  corrector  step  in  X direction*)  03CSS 

3109  format  ( IHO.  10X,*BAC»<^AHD  difference  FOR  PBFOICTOR  STEP  AND  *t  03CSS 

1 *FOR«(ARn  DIFFERENCE  FOR  CORRECTOR  STEP  IN  X DIRECTION*)  03CSS 

3135  format ( IHO . 1 OX . *THE  CFL  FACTOR  IS  REDUCED  T0*«0PF6.3«  03CSS 

I * «(HFN  Z IS  IN  THE  interval  I **  F «.  Z ,*,*,  Ffl  .?,*)• ) D3CSS 

3136  format  I IHO. lOx , *USE  CFl  FACTOR  =*.0PF6.3.  D3CSS 

1 • FOR*.!).*  STEPS  after  AN  EXPANSION  jump  occurs*)  D3CSS 

31»T  format  ( IHO  . 1 ox  . *ThE  terms'  for  X DERIVATIVES  AT  THE  WALL  *.  PXWALL 

1*ARF  MoniFIFD  FOR*./,  PXWALL 

2 1TX.I3.*  STEPS  AFTER  AN  EXPANSION  JUMP  AND*, 13,  03CSS 

3 • STEPS  after  a COMPRESSION  JUMP*)  03CSS 

3153  format ( IHO , 1 OX. "USING  JUMP  WHICH  COMPUTES  JUMPS  CORRESPONDING  *.  03CSS 

1 *T0  DISCONTS.  In  8Z  AND/OR  8=Hl  EXCEPT  FOR  THE  PHI  INTERVAL  (*»  03CSS 

? F7.2.*.*.F7.?,*) •)  03CSS 

3306  FORmaT(1h0.10X.*IF  PRESSURE  IS  NEGATIVE  THEN  THE  CONSERVATION  *.  D3CSS 

1 *vECTORs  ARE  Smoothed  8y  i-*,i2.*-i*)  03css 

*019  format ( IHO. 1 ox. *WALL  ENTROPY  EXTRAPOLATION  FOR*. 13,*  PLANES*.  D3CSS 

1 * UNTIL  A COMPRESSION  JUMP  AND  THEN  NO  EXTRAPOLATION*)  CORRl 

*030  format ( IHO, 1 OX. *NO  WALL  ENTROPY  EXTRAPOLATION*)  D3CSS 

*039  format ( IHO, 10X.»MOO  0 FOR  WALL  POINTS*)  D3CSS 

*030  format ( IHO, 10X,»MOO  3 FOR  WALL  POINTS  UNTIL  A JUMP  OCCURS  AND  *,  D3CSS 
1 *ThEN  MOD  0 IS  USED*)  03CSS 

*035  FORMAT ( IHO, 1 OX, *OPTION  FOR  SECOND  ORDER  ACCURACY  AT  WALL  POINTS  *.  D3CSS 
1 *IS  TURN  ON  AT  Z =*.1PE1S.6)  D3CSS 

*0*0  FORMAT ( IHO, 10X.*SECONO  ORDER  ACCURACY  IS  USED  AT  WALL  POINTS  *,  03CSS 
1 *FOR  Z LESS  than*, 1PE15.6,*  OR  UNTIL  JUMP  IS  CALLED*)  D3CSS 

*055  format ( IHO. 10X,*THE  DIFFERENCING  (FORWARD  - BACKWARD)  IS  * D3CSS 

1 ,*SWITCHF0  FROM  STEP  TO  STEP*)  D3CSS 

D3CSS 

***  initializations  ***  D3CSS 

DO  75  N»1 ,NC  D3CSS 

35  X (N) « (N-1 ) /nox  03CSS 

DO  36  Mil, MAS  D3CSS 

IJUMPI (M) =I JMPKT (M) =0  03CSS 

Y (Ml = (M-i ) /dDx  D3CSS 

DO  35  Nrl.Nf:  D3CSS 

TDNMsOlN.M]  i tpnm=P(N,m)  D3CSS 

call  RGAS( IpNM.IDNM.OUMM,*)  D3CSS 

W (N.Mi sTWNMrSQRT (H0T3-3.*MX-U (N.M) **3-V (N.M) **?)  D3CSS 

TCU=CU (1 ,N,M) *t0NM*TWNM  D3CSS 

CU ( 3.N.M) sTPNM»TWNM*TCU  D3CSS 

CU  ( 3.N.M)  =(j  (N.M)  *TCU  D3CSS 

CU (*,N.M) =v (N.M) *TCU  D3CSS 

GM (N.M) =1 ./ ( 1 .-TPNM/ ( TDNM*HX ) ) D3CSS 

GC (N.M) =1 ,E .99  D3CSS 

35  ASO (N.M) =AX*AX  D3CSS 

36  CONTINUE  D3CSS 

IF  (lOYAW  .FO.  0)  CPHI ( I ) =CPHI (MC)»0.  D3CSS 

03CSS 

»••*••**•••*.***••*•*••••••••••••••••••••••••••••••••••••••••••••••••••  03CSS 

•••  preliminary  PREDICTOR  LOOP  (INITIAL  STEP  ONLY)  ***  D3CSS 

IN  This  LOOP,  Kl  CORRESPONDS  TO  m-i  anO  kZ  TO  M IN  CF.CG.CE  D3CSS 

conservation  VECTORS.  AND  TRANF.  TRANG  OUANTITIES.  D3CSS 

NOTE  well.  In  this  LOOP  CUP  AND  CP  STORES  PREDICTED  D3CSS 

Z-OIFFERENCES  NOT  PREDICTED  VALUES,  D3CSS 
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Kl=l  $ K?=2 
CFL=0.0 

IF ( IHM.FQ. 1 ) GO  TO  40 

TCrt=BSN/COSHN  $ IF  (Z  ,6T.  DST)  HN=0. 

CCC=  ( 1 .-TCt<)  »»2 
40  CONTINUF 

DO  100  M-1,MCS 
KK=K1  $ K1=K2  t K2=KK 
IF  (M  ,LT.  mCS)  go  to  G9 
IF  (lOYAW  .FO.  n GO  TO  65 

C •«*  COMPUTt  CG  VFCTOR  AT  Y=l*DY  USING  SYMMETRY  CONDITIONS  «»* 
call  TRANG(YMCP.PCP.K2) 
call  EVALSY (0UM,MA,K1.K2»K2.0UM) 

60  TO  80 

C **»  compute  CG  VECTOR  AT  Y=1  ••• 

65  call  TRANG(1..MC.K2) 

call  EVALPR (OUM, 1 ,DUM«K2.K2.DUM) 

go  to  80 

69  CALL  TRANG(Y(M) ,M,K2) 

PHI (M) =THETA*PHIO  $ GY (M) =T64 <K2) 

COSPHI (M) =COS (PHI (M) ) % SINPHI (M)=SIN(PHI (M) ) 

IF  (IBN  .EQ.  1)  GO  TO  1045 
ZHB{M)=1.E08  $ 60  TO  1047 

C ***  COMPUTE  sphere  cone  JUNCTURE  FOR  BENT  NOSE  •** 

1045  SCR= (COSPHI (M) »TANBN) **2 
AAB=1 .♦SCR 

8BC=2.“ (TCR-1 .-SCR) 

IF(PHI (M) .LT.PID2.0R.PHI (H) .GT.D14PID2)  GO  TO  1046 
ZRB (M) = (-HBC*SORT (BBC»B8C-4.'»AAB*CCC) ) / (2.«AAB) 

GO  TO  1047 

1046  zaa (M) = (-8BC-S0RT (8BC*RBC-4.»AA3«CCC) ) / (2.*AAB) 

1047  CONTINUE 
call  ROOY(M) 

8Z0(M)=BZ(M)  $ PPHIO (M) =BPHI (M) 

BZZO(M)=B7Z  $ BZPHIO (M)=8ZPHI  $ BPhPHO ( M ) =PPHPH I 
call  B0DYP(M,K2) 

C ***  INITIALIZATION  OF  CU ( I t 1 . M ) , I = 1 , 2, 3 *** 

PM=p(1,m)  $ CU( 1 i 1 ,M) =AL06(PM) 

CALL  RGAS  (Pm,0  ( 1 .M)  ,SW  (M)  ,4) 

ASO ( 1 »M) =AX»AX 
CU(2,1,M)=SW(M) 

CU ( 3» 1 .M) =V ( 1 ,M) >0 ( 1 »M) »BPHI (M) /R(M) 

CU(1 .NC.M)=C(M)  S CU(2tNC.M)=CZ(M)  $ CU ( 3 . NC . M ) =CPH I ( M ) 

CU (4.NC1M) =CUP (4.NC«M) =0. 

CALL  RGAS(P(NC.M) ,D(NC.M) ♦ DUMMY, 4) 

ASQ(NC,M)=AX*AX 

call  TRANF (m,K2,K2) 

call  EVAL (0,M,K?,K2,K2.K2) 

IF  (M  .EQ.  1)  GO  TO  100 
80  MB=M-1 

DO  90  N=2,NA  $ NP=N,IPC 
DO  90  1=1,4 

CUP ( I ,N,MB) =- (CF ( I ,NP,K1 ) -CF ( I ,NP-1 ,K1 ) ) •DDX 
1 - (CGI  I ,N,K?) -CG( I ,N,K1 ) ) *DDY-CF ( I ,N,K1 ) 

90  continue 

call  wall (MR,K?,K1 ,K1 ,K1 ,0) 

CUP(l,l,MB)=PZ  S CUP(3,l,MB)=V27 
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CUP(2fl.»B):SZ 

call  shock (m8.K2«K 1 «K1 ,K 1 .0 ) 

CUP ( 1 .NCfM») =DCZ  $ CUP (a.NCtMai =OC27  t CUP(3«NC.MB).OCPMZ 
100  CONTINUF 

IF  (ISHOIF  ,NE.  0)  IPC=ICP 
IF  (IDVAW  .FU.  1)  GO  TO  125 
C •**  SET  symmetry  conditions  ••• 

DO  110  N«2.NC 

110  CU (4,N. 1 ) =CU (AtN.MC) =0. 

CU ( 1, 1 . 1 I =CU ( 3« 1 .MC) =CU (3.NC* 1 ) =CU(0,NC.MC) =0. 


•••  print  The  initial  input  data  ••• 

125  IPRINT.1  * call  FIELD  t PRINT2«2  f CALL  INTEGIOI 
IF  (ISTART  ,EQ.  0)  GO  TO  725 
GO  TO  750 


SECTION  2 

THIS  section  CONTAINS  THE  MAIN  CALCULATION  LOOP 


200  K*K*1 

•••  COMPUTE  OZ  AND  UPDATE  CUPIN.M)  AND  CP«M»  ••• 

IF  (Z  .LE.  ZCFLD  go  TO  202 
ZCFl1»ZCFL2  $ ZCFl2>2.»ZENO 
OUM.FACTOR  t FACT0R«FACT1  S FACT1«0UM 
IOUM-KFAC  S KFAC«KFAC1  $ KFACI»IOJM 

202  FAC»FACTOR 

IF  (ICFL  .LE.  01  GO  TO  203  f IF  <KCFL  .LE.  0)  GO  TO  203 

ICFl»ICFL*1  $ IF  (ICFL  .GT.  KCFl)  ICFLsO 

FAC»FACJMP 

203  OZ»FAC*OX/CFL 

IF  (DZ  .GE.  l.E-OA)  GO  TO  205 

WRITE  (5.39R0I  $ CALL  SAVE (OUM.OUM.OUM) 

3990  FORMAT ( IHl ,»OZ  IS  LESS  THAN  1.E-*  — STOP  — * ) 

205  IP9INT=0  $ ZZ*Z»OZ 

208  IF  (ITARGET  ,GT.  NTARGET)  GO  TO  210 

IF  (ZZ  .LT.  TARGETZ(ITARGETI)  GO  TO  2l0 
ITARGET»ITARGET*1 

IF  (TARGETZ(ITARGET-I)-Z  .LE.  0.)  60  To  208 
IPRINT=1 

210  IF  (MOO(K,IPRCFL)  .EQ.  0)  WRITE  (6.3672)  K.OZ.CFL »NCFL. MCFL . UCFL . Z 
3672  FORmaT(1H0.»K  I S» . 15 »5X • »0Z  I S» . 1PE15.7 »5X .»CFL  I S* . IPE 15 . 7 »5X . 

1 *NCFl  IS*.I3.5X,*MCFL  I S» . I 3 .SX , *JCFL  IS».I3.5X, 

2 *Z  IS».10E15.7) 

IF(hN.EO.O)  go  to  209 

C **•  CHECK  FOR  AXIS  SHIFT  FOR  BENT  NOSE  **• 

IF (OZ»TAN(ThETA0N-ALNS) .LT.8(INT(FLOAT(NC)*PI/PHIO) )-CENUF)  60  TO 
1 207 

IA»l  1 GO  TO  213 
207  IF  (Z  .LT.  OST)  go  TO  209 
IA=2 

213  call  field 

IF  (lOYAW  .FQ.  0)  GO  TO  212 

PHI(MC)»PHI0  $ C(MC)=C(1)  I CZ{MC)=CZ(1)  « CPHI (MC) »CPHI ( 1 ) 
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*51 

03CSS 

*52 

D3CSS 

*53 

03CSS 

*5* 

D3CSS 

*55 

03CSS 

*56 

03CSS 

*57 

03CSS 

*58 

03CSS 

*59 

03CSS 

*60 

D3CSS 

*61 

D3CSS 

*62 

D3CSS 

*63 

D3CSS 

*6* 

03CSS 

*65 

D3CSS 

*66 

D3CSS 

*67 

D3CSS 

*68 

D3CSS 

*69 

D3CSS 

*70 

03CSS 

*71 

03CSS 

*72 

03CSS 

*73 

03CSS 

*7* 

D3CSS 

*75 

03CSS 

*76 

03CSS 

*77 

03CSS 

*78 
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DO  ?11  N*1.NC 

03CSS 

479 

R (N,MC) =R (N, 1 ) t U(N>MC)3U(N»1)  S V (Nt»C) »V (N, 1) 

03CSS 

480 

P(N,MC)=P(N,1)  % D (N.M0=D(N.  1 ) 

03CSS 

♦ 81 

211 

CONTINUE 

03CSS 

♦ 82 

212 

call  SHFAXD ( lA.NC.MCtCU.CUP.Y.GY.PZCOR.RtPZ.BPHI ) 

D3CSS 

♦ 83 

attack=atta 

D3CSS 

464 

GO  TO  15 

D3CSS 

♦ 85 

209 

CONTINUE 

D3CSS 

♦ 86 

z»zz 

03CSS 

♦ 87 

• i 

»•  CHECK  To  TURN  OFF  SECOND  ORDER  ACCURACY  ••• 

D3CSS 

♦ 88 

IF  (Z  ,GE.  ZMOOlOF  .AND.  ZMODIOF  .GT.  ZHODION)  MOD1=0 

03CSS 

♦ 89 

IF  (Z  .GE.  ZMOOlOF  .AND.  MOOION  .EO.  0)  MOOl»0 

03CSS 

490 

CHECK  TO  TURN  ON  SECOND  ORDER  ACCURACY  ••• 

D3CSS 

♦ 91 

IF  (MOOION  .EQ.  -11  M001*l 

03CSS 

♦ 92 

IF  (MOOION  .EQ.  -11  MOOlONal 

03CSS 

♦ 93 

IF  (Z  .LT.  ZMOOIONI  go  to  250  S IF  (MOOION  .EQ.  11  GO  TO  250 

03CSS 

494 

M0010N«-l  » IF  (MODI  .EO.  11  MOOlONsl 

03CSS 

♦ 95 

250 

OZD)(»OZ»OOX  S OZOY»OZ»OOY 

D3CSS 

♦ 96 

•••  PREDICTOR  UPDATE  LOOP  *•* 

D3CSS 

♦ 97 

00  PRO  Mill, MAS 

03CSS 

496 

00  ?70  N»2.NC 

03CSS 

499 

00  270  I«1,A 

D3CSS 

500 

2T0 

CUP(I.N.M1»CU(I.N,M1«0Z»CUP(1.N,M) 

D3CSS 

501 

CUP (1,1 .Ml aCU ( 1 , 1 ,M1 .OZRCUP ( 1 , 1 ,M1 

03CSS 

502 

IF  (M  .GT.  ISKSMOl 

D3CSS 

503 

1 CUP(2,l,Ml«CU(2,l,M),OZ»CUR(2»l,Ml 

D3CSS 

50^ 

CUP(3,1,M1«CU(3«1,H1*0Z»CUP(3»1,MI 

03CSS 

505 

2S0 

CONTINUE 

03CSS 

506 

IF  (IDYAN  .EQ.  11  GO  TO  300 

D3CSS 

507 

•••  SET  SYMmETRT  CONDITIONS 

03CSS 

508 

DO  282  N«2,NC 

03CSS 

509 

282 

CUP(A,N,1I»CUP(4,N,MCI=0. 

D3CSS 

510 

CUP(3,1,11»CUP(3»1,MCI*CUP(3,NC,11*CUP(3,NC,MC1»0. 

D3CSS 

511 

D3CSS 

512 

»««#i 

••  03CSS 

513 

•••••  CORRECTOR-PREDICTOR  LOOP  •***♦ 

03CSS 

514 

THIS  LOOP  SIMULTANEOUSLY  CORRECTS  ON  THE  LINE  M-1, 

D3CSS 

515 

computes  z-oifferences  for  new  prfoictor  on  line  M-2, 

03CSS 

516 

AND  FINOS  THE  CFL  PARAMETER  FOR  THE  NEXT  DZ 

D3CSS 

517 

Jl«J2,J3  CORRESPONDS  TO  M-2»M-1,M  RESPECTIVELY  FOR 

03CSS 

518 

trang  quantities. 

D3CSS 

519 

K1.K2  CORRESPONDS  TO  M-2, M-1  RESPECTIVELY  FOR 

03CSS 

520 

tranf  quantities. 

D3CSS 

521 

Kl  CORRESPONDS  TO  M-2  FOR  CF  AND  CE  VECTORS 

D3CSS 

522 

8ASE0  ON  CORRECTED  VALUES. 

03CSS 

523 

k2  corresponds  TO  M-1  FOR  CF  AND  CE  (BASED  ON 

D3CSS 

524 

CORRECTED  ANO/OR  PREDICTED  VALUFSl . 

D3CSS 

525 

jl,J2  CORRESPONDS  TO  M-2  FOR  CG  VECTOR  BASED  ON 

D3CSS 

526 

corrected  ano  predicted  values  respectively. 

03CSS 

527 

J3  CORRESPONDS  TO  M-1  FOB  CG  VECTOR  BASED  ON 

D3CSS 

528 

PREDICTED  VALUES. 

D3CSS 

529 

300 

Jl»l  $ J2=2  S J3*3  $ Kl=l  S K2»2 

03CSS 

530 

M=MCM2S  $ MR«0 

D3CSS 

531 

CEL=0.0 

03CSS 

532 

T8ZZO=8ZZO(MA1  S TBZPMI0=BZPMI0(MA1 

03CSS 

533 

TBPP0»BPHPH0(MAI 

03CSS 

534 

00  500  MTsl.MCPZ 

D3CSS 

535 
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MM2=MB  » MB=M  t M=M*1 

IF  (M  .NE.  XC)  GO  TO  310  $ IF  (XCM2S  .FO.  0)  GO  TO  310 

M=i 

310  KK=K1  S K1=K2  % K2=KK 

JJ=J1  $ J1=J?  * J2=J3  * J3=JJ  $ nc=llp=4 
IF  (MT  .LT.  MCP)  GO  TO  320 
IF  {M  ,NE.  «CP)  GO  TO  315 
IIC=3  t GO  TO  345 
315  IF  (M  ,EQ.  II  GO  TO  320 
IF  (X  .FQ.  2)  GO  TO  317 
IIP  = 3 

•••  compute  CG  VECTOR  AT  Y=l»0r  USING  SYMMETRY  CONDITIONS 
call  TRANGIYMCP.MCP* J2) 
call  EVALSY (OUM.MAt J1 ,J2» J2.0UM) 

GO  TO  560 

•••  compute  CG  VECTOR  AT  Y=1  (USING  CORRECTED  VALUES) 

317  call  EVALPR(DUM.1*OUM,J2«J2.0UM) 

GO  TO  560 

320  call  TRANG(Y (M) ,M,J3) 

PHI (M) =THETA»PhIO  S GY(M)aTG4(J3) 

IF  (MT  .GT.  MC)  go  to  345 

IJUMP(M)aO  S 8Z0(M)=8Z(M)  $ 0PMIO(M(aBPHl(M) 

CALL  0OOY(M)  S CALL  0OOYP(M,J3) 

BZZ0(M)=BZZT(J3)  * 0ZPHlO(M)=aZPHlT(J3)  S 0PHPHO(M)s0PMPHT(J3) 

IF  (MT  .LT.  MC)  go  TO  325  S IF  (M  .EQ.  MC)  GO  TO  325 
GO  TO  345 

325  COSPHI (M)3COS(PHI (M) ) * SI NPHI ( M) aSIN (PHl (M) ) 

ICMECK=0 

call  DECODE (M, cup. J3tNCMAX.MCMAX) 

***  CORRECTOR  FOR  SHOCK  SHAPE  *•* 

C(M)sCU{l.NC.M)*.5*(CU(l.NC.M)»CUPn .NC.M)*DZ*(CZ(M) 

1 -YZ(J3)*CPHI (M)/YPHI (J3I) 1 
IF  (MT  ,GT.  3)  GO  TO  345 
IF  (M  ,nE.  3)  GO  TO  330 
IIP=3  S GO  TO  34S 
330  IF  (M  ,nE.  2)  GO  TO  600 
IF  (MT  .EQ.  2)  GO  TO  335 

COMPUTE  CG  VECTOR  AT  Y=-DY  (I.E..  Y=l-OY)  *** 

•**  NOTE  that  the  call  to  TRANF  IS  TO  OBTAIN  R(N.MC-l)  ONLY  *** 
call  TRANF(MA.JI.KI) 

call  EVALPR (OUM.MA.OUM.JI. J2.0UM) 

0Z(mA)=0ZO(mA)  * BPHI (MA)80PHIO(MA) 

0ZZO(MA)=T0ZZO  * 8ZPHIO(MA)»T0ZPHIO 
BPHPHO(mA) =T0PPO 
GO  TO  345 

^ compute  CG  VECTOR  AT  Y=-0Y  USING  SYMMETRY  CONDITIONS 
CALL  TR4NG(Y0.0.J1) 

•**  THE  FOLLOWING  CALL  IS  TO  FIND  R(N.2)  ONLY 
CALL  TRANF(2,U3.K1) 

call  EVALSY (0UM.2.U2.J1 .J2.0UM) 

345  call  TRANF (m0,J2,K2) 

call  EVAL(1.M8,K2.J2.J3.K2) 

DO  400  N»2.NA  S NP*N»ICP 
DO  400  I»l.IIC 

CU( I .N,M0)=.S* (CU( I .N.M0) .CUP< I .N.MR) 

-(CF(I.NP,K2)-CF(I.NP-I.K2))*0Z0X 


D3CSS 

536 

D3CSS 

537 

03CSS 

53B 

D3CSS 

539 

D3CSS 

540 

03CSS 

541 

D3CSS 

542 

03CSS 

543 

D3CSS 

544 

03CSS 

545 

D3CSS 

546 

D3CSS 
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D3CSS 

548 

D3CSS 

549 

03CSS 

550 

D3CSS 

551 

D3CSS 

552 

D3CSS 

553 

D3CSS 

554 

03CSS 

555 

D3CSS 

556 

D3CSS 

557 

03CSS 

558 

03CSS 

559 

D3CSS 

560 

D3CSS 

561 

D3CSS 

562 

D3CSS 

563 

D3CSS 

564 

03CSS 

565 

D3CSS 

566 

D3CSS 

567 

D3CSS 

568 

D3CSS 

569 

03CSS 

570 

D3CSS 

571 

D3CSS 

572 

03CSS 

573 

D3CSS 

574 

D3CSS 

575 

03CSS 

576 

03CSS 

57T 

D3CSS 

570 

D3CSS 

579 

D3CSS 

580 

D3CSS 

581 

D3CSS 

582 

D3CSS 

583 

D3CSS 

504 

D3CSS 

585 

D3CSS 

586 

03CSS 

587 

D3CSS 

580 

D3CSS 

589 

D3CSS 

590 

D3CSS 

591 

D3CSS 

592 
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i 


; / 
r * 


i 

[ 


? - (CG ( I .N, J3) -CGI  I .N.J?> 1 •020r-07»CE 1 I .NtK?)  ) 

03CSS 

5R3 

400 

CONTINUE 

D3CSS 

594 

• < 

••  CORRECTOR  EOR  KALL  POINTS  ••• 

03CSS 

595 

CAUL  RAUL (HR. J3. J2. J2tK2, 1) 

D3CSS 

596 

CU I 1 , I .MB)  = .54 (CU I 1 . I .MR  1 «CUP 1 1 . 1 .MB ) *n7»P7) 

03CSS 

597 

IE  (MB  .UE.  ISNSMOl  GO  TO  420 

D3CSS 

598 

CO ( 7 . 1 .MB) = .5* (CU ( 2. 1 .MB) »CUP 12. 1 .mb) .07»S7) 

D3CSS 

599 

GO  TO  425 

D3CSS 

600 

420 

CU (2. 1 .MB) =SZ 

03CSS 

6n  1 

425 

CONTINUE 

03CSS 

602 

lE  (lie  .EQ.  4)  CU(3.1.mB)=.5»(CU(3.I.mB).cuP(3.I.mB)»OZ»V2Z) 

03CSS 

603 

COPRECTOB  fOR  SMOCK  POINTS  ••• 

D3CSS 

604 

call  shock (MB. J3.J2.J2.K2. 1 ) 

D3CSS 

605 

CU (2.NC.MB) =.5* (CU (2.NC.MB) .CUP (2.NC.MB) .DZ^OCZZ) 

D3CSS 

606 

IE ( I IC.EQ.4)  CU ( 3.NC.MB ) =.5» (CU ( 3.NC.MP) .CUP ( 3.NC.MR) »OZ»OCPHZ ) 

03CSS 

607 

OUM=CZ(MB)  $ OUMCPsCPmI (MB) 

03CSS 

608 

ICMECK=l  ^ 

D3CSS 

609 

call  decode (mXcU.J2.NCMAX. MCMAK ) 

03CSS 

610 

eM8=8(MB)  S c!rP=CZ(MB)  t Cmbb*C(MB)-SMB 

D3CSS 

61  1 

ODCR= (OUM-eZMB) /CMB0  f 

D3CSS 

612 

CPHIMB=CPHI (MB)  S OOCP0=(OUMCO-CPhIMB)/CMBB 

D3CSS 

613 

IE  (IJUMP(MB)  .EO.  1)  GO  TO  435 

03CSS 

614 

DO0P=OOBZ=O.  $ GO  TO  440 

03CSS 

615 

435 

OUM1=BZ(M0)  * 0UM2=8PHI (MS) 

D3CSS 

616 

0ZZ=0ZZT(J2)  1 0PMPMls0PMPHT(J2)  S PZPMI=B7PMIT ( J2) 

03CSS 

617 

02 (MB) a0ZT ( J2)  t BPHl (M0)>BPhIT(J2) 

03CSS 

618 

call  BOOYPP(M0.J2) 

03CSS 

619 

OUMMmDOM2-0PHI (MB)  S OELeP»OUMM/B (MR) 

D3CSS 

620 

OO8P=OUMM/CM00  $ 0EL82»0UM1-B2 (MB)  $ OO8Z*OELBZ/CM00 

D3CSS 

621 

call  JUMP(OELaP.OELBZ.M0) 

D3CSS 

622 

CU(2.1.m0)=sk(m8) 

03CSS 

623 

CU(l.I.MB)a4L0G(P(l.M8) ) 

03CSS 

624 

CU(3. 1 .Mfl)av ( I .MR) .0PHI (MB ) »U ( 1 .MB) /0 (MR ) 

D3CSS 

625 

UPDATE  TBANF  quantities  USING  CORRECTED  CZ  AND  CPMI 

D3CSS 

626 

440 

00  450  Nal.NC 

03CSS 

627 

XRN=XR(N.K2)  $ DSXsR(N.MB)-0M0  S DSX 1 =O5X-CM0B 

D3CSS 

628 

XZ(N.K2)=XZ(N.K2) ‘XRN* (DOC04OSX-OO8Z4DSX1) 

03CSS 

629 

XPHI (N,k2)=XPMI (N.K2)-XRN*(0SXI»O08P-0SX*D0CPB) 

D3CSS 

630 

TE6(N.K2)*TE6(N.K2) ♦OOBZ-OOCB 

03CSS 

631 

TE7 (N,K2)aTE7 (N.K2) ♦OOBP-OOCP8 

03CSS 

632 

450 

CONTINUE 

03CSS 

633 

CALL  EVAL(O.M0.K2.J2.J2.K2) 

D3CSS 

634 

#' 

•*  COMPUTE  Z OIEEERENCES  EOR  PREDICTOR 

03CSS 

635 

NOTE  that  CP  and  CUP  STORE  THESE  QUANTITIES  ••• 

D3CSS 

636 

IE  (M  ,EO.  2)  GO  TO  600 

D3CSS 

637 

560 

00  580  N*2.NA  $ NPaN.IPC 

D3CSS 

638 

00  580  1=1. IIP 

D3CSS 

639 

CUP( I.N.MM2) =- (CF ( I.NP.KI ) -CE ( I.NP-l.Kl ) ) *D0X 

03CSS 

640 

1 ”(CG( I .N. J2) -CG(I.N.JI) ) *007-05 ( I.N.Kl ) 

03CSS 

641 

580 

CONTINUE 

D3CSS 

642 

IE  (MOOXON  ,EQ.  -1)  MODl=l 

03CSS 

643 

call  WALL(MM2,J2,J1.J1.K1.0) 

03CSS 

644 

IF  (MOOION  ,EQ.  -1)  M001=0 

D3CSS 

645 

CUP (1.1. MM2) =PZ  $ CUP(3.1.MM2)=v2Z 

03CSS 

646 

CUP(2.1.MM2)xSZ 

03CSS 

647 

call  SHOCK (MM2, J2.J1 ,J1 .K1 .0) 

03CSS 

648 

CUP ( 1 .NC.MM?) =0CZ  S CUP(2.NC.MM2)aOCZZ  5 CUP ( 3 . NC .MM2 ) =0CPHZ 

03CSS 

649 

f 
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600  CONTINUE 

D3CSS 

650 

IE  (ISWOIE  .EQ.  0)  GO  TO  604 

03CSS 

651 

IPC=1-IPC  $ ICP«IPC  S 

03CSS 

653 

604  CONTINUE 

03CSS 

653 

c< 

* 03CSS 

654 

c 

03CSS 

655 

c 

•**  OUTPUT  - FORCES  - MOMENTS  *•* 

03CSS 

656 

IF  (MCM2S  .EQ.  0)  GO  TO  610 

D3CSS 

657 

PHI(MC)»PHI0  S C(MC)»C(1)  $ CZ(MC»»CZ(1)  « CPHI(MC)»CPHI(1) 

03CSS 

658 

DO  60S  N»1.NC 

03CSS 

659 

R(N,MC)>R(N,1I  S U<NtMC)>U<Ntl)  S V (NtMC t «V (N« 1 ) 

03CSS 

660 

W(N.MC)>W(N.l)  S P(NtMC)>P(N«l)  S 0 (N»MC) >D(N» 1 ) 

D3CSS 

661 

605  CONTINUE 

03CSS 

662 

610  IF  (IPRINT  ,EQ.  1)  60  TO  675 

03CSS 

663 

IF  ((Z-PRINTZ)  .6T.  DZPRINT)  60  TO  670 

03CSS 

664 

DO  635  I»1.S 

03CSS 

665 

IF  (Z  .LT.  ZPRINKin  60  TO  650 

03CSS 

666 

635  CONTINUE 

03CSS 

667 

60  TO  700 

03CSS 

668 

650  IF  (MOOIK.KOUTdl)  .NE.  0)  60  TO  700 

D3CSS 

669 

670  IPRINT»1 

03CSS 

670 

675  call  FIELD  t PRINTZ>Z 

03CSS 

671 

c 

D3CSS 

672 

c 

ACH  IS  THE  HACH  NUMBER 

D3CSS 

673 

c 

ATTA  IS  the  angle  OF  ATTACK 

D3CSS 

674 

c 

cone  is  the  SHOULDER  ANGLE 

03CSS 

675 

c 

K IS  THE  STATION  NUMBER 

D3CSS 

676 

c 

NC  IS  THE  number  OF  POINTS  IN  RADIAL  OIRECTIDN 

03CSS 

677 

c 

MC  IS  THE  NUMBER  OF  PLANES  IN  TANGENTIAL  DIRECTION 

03CSS 

67B 

c 

Z IS  THE  LENGTH  ALONG  BODY  AXIS 

D3CSS 

679 

c 

PHI  IS  THE  ANGLE  OF  PLANE  IN  TANGENTIAL  DIRECTION 

03CSS 

680 

c 

CZ  IS  *TAN(SI6MA) 

03CSS 

681 

c 

CPHI  IS  -TANIOELTA) 

03CSS 

683 

c 

INDEX  1 means  flow  VARIABLES  ON  THE  BODY 

03CSS 

683 

c 

index  NC  means  flow  variables  ON  THE  SHOCK 

D3CSS 

684 

c 

D3CSS 

6«5 

700  call  INTEGd) 

03CSS 

686 

735  WRITE  (16)  NCtMCtATTA<YAWtACH«GAMMA,PlNFtDINF«PHlO«K»Z 

03CSS 

687 

A .NGAStNTEST.RRX 

03CSS 

688 

1 tFN«FYtFA,MX,MVfMZ«FNZ«FYZtFAZ«MXZ«MVZ«MZZ 

03CSS 

689 

3 . (PHI <M) ,C(M) »CZ(M) ,CPHI (Ml «Mal,MC) 

03CSS 

690 

3 .((R(N«M|«U(N«M)fV(N<H).W(N«M)*P(NtM)>D(N>M)>M«l»MC)«N«l»NCI 

D3CSS 

691 

750  IF  (Z  ,lT.  ZENO  .ANO.  K .LT.  KAl  60  TO  300 

03CSS 

692 

IF  (IPRINT  .EQ.  0)  CALL  FIELD 

03CSS 

693 

WRITE  (17)  NC.MC.ATTA.YAWtACHtGAMMA.PiNF.OINF.PHlO.K.Z 

03CSS 

694 

A .NGAS.NTEST»RRX 

03CSS 

695 

1 .FN.FY.FA.MX.MY.MZ.FNZtFYZ.FAZtMXZfMYZ.MZZ 

03CSS 

696 

3 . (PHI (Ml ,C (Ml .CZ(M) .CPHI (M) »Mal,MC) 

03CSS 

697 

3 .((R(N<M),U(N.M).V(NtMI,W(N«M)«P(N«M|fD(N«M),MBl.MC)»NaI>NC) 

03CSS 

698 

call  out  S STOP  S END 

D3CSS 

699 

o o n n n o 
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SUBPOUTINE  P00YP(M,J3) 

0OOVP  COMPUTES  certain  BOOT  PARAMETERS  NEEDED  IN 

SUBROUTINE  NALL.  THIS  ROUTINE  ALSO  TESTS  FOR  DISCONTINUITIES 

IN  0Z  AND  BPMI. 

J3»1.2.3  IS  A LINE  INDEX  FOR  BODY  PARAMETERS 


COMMON  NC.MC.K.PINF.OlNF.PHIO.IOYAw.PIf RAD 
COMMON  YZI3) .YPHI (3) »C(2S) ,CZ(25) .CPHI ( 25 ) . R ( 20 , 25 ) 

COMMON  0(20.25) .P (20.251 •U(20>25) tV (20.25) .M (20 .25) .ASO(?0.25) 
common  CU(4.20.25) .CUP(4.20.25) 

•••  END  OF  blank  common  •** 

common  /C0OOY/  Z.BZZ.8PMPHI.02PHI.TANCO.DELZ 
1 .PHI (25) .0(25) .BZ (25) .BPMI (25) .COSPHI (25) .SInPHI (25) 

COMMON  /CBOOYP/  OZ.PMIlJ.PHI2J.02T(3),fiPMiT(3) .BZZT(3) 

1 .0PHPHT(3) .BZPHITOl .BZ0<25) .8PhI0(25) .0PMPhO(25) .BZPhIO(25) 

2 .BZZO(25) 

common  /0LKO3/  ICFL.A2(3) .A3(3> .A4(3) ,A5(3) .AT (3) 

I . I JUMP (25) . I JUMPl (25) .IJMPKT (25) 

BZM«0ZT(J3)a0Z(M)  S BPHIT(J3)=8PHI (M) 

8PMPHT(J31»RPMPMI  S 8ZPMIT(J3)=8ZPH1  S 0ZZT(J3)=0ZZ 
8Z0M«8Z0(M)  S aZPMOM«0ZPHIO(M)  ^ 

TEST1*AMAX1 (ABS(BZZ) »ABS(BZZ0(M) ) ) s TEST1sABS(9ZM-0ZOM)-OZ»TEST1 
TEST2<AMAX1 (ABS(BZPHI) .ABS(BZPHOM) ) 

TEST2*A0S(8PMI (M)-BPHIO(M) )-0Z*TEST2 

IF  (TESTl  .LE.  l.E-6  .AND.  TEST2  .LE.  l.E-6)  60  TO  200 
IF  (PHIIJ  ,LT.  PMI(M)  ,LT.  PHI2J)  THEN  NO  JUMP  ••• 

IF  (PHKM)  ,GE.  PHI2J)  GO  TO  10 
IF  (PHKM)  ,LE.  PHIIJ)  GO  TO  10 
ICFl»1  $ IJUMPI(M)s2  S (30  TO  200 
10  8Z(M)«8Z0M  % BPMI (M)*BPHI0(M)  S IJUMP(M)*1 
BPHPHI»BPHPmO(M)  S 0ZPHISBZPMOM  $ BZZ»8ZZ0(M) 

ENTRY  BOOYPP 

200  flM*B(M)  S 8ZM=0Z(M)  S PHIZ»-YZ(J3)/YPHKJ3) 

BPOb=BPmI (M) /0M  * 0PO02*0POB»*2  * OUM=l .*B7M»«2 
A22sOUM.0POB2  % 0UM1= (BPMPHI/9M-BPO02) 

DUMaalBZZ^BZPHKPHIZl/OUM  S dUM3=0ZPHI/BM 
DUM*sOUM3-0ZM»8POB/0M 

A2(j3)=S0RT(A22)  % A3(J3)=OUMI/yPMI (J3) 

A4(j3)*0UM4*PMIZ*0UM1  % A5(J3)=BZPhI/YPHI (J3) 

a7( J3)»0UM2»0UM 

RETURN 

END 


/ 


f 
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SUHOOUTINE  decode (M.CV.J.NOIM.MOrM)  DECODE 

C DECODE 

C DECODE  FINOS  FLOW  VARIABLES  FROM  TmE  CONSERVATION  VECTOR,  CV.  DECODE 

C This  version  assumes  that  CVU,1»M)=L0S(P»,  CV(2,l«M)aS.  DECODE 

C CV(3,l,M)sv2»V,(BPHl/B)*U  DECODE 

C CVd.NC.MIsC  CV  (2,NC.M)  =CZ  CVn,NC,M)=CPMI  DECODE 

C This  routine  contains  SELECTIVE  SMOOTHING  OF  CONSERVATION  DECODE 

C VECTOR  MHEn  decoded  PRESSURE  IS  NEGATIVE.  DECODE 

c NOTE  that  cv  is  either  cu  or  CUP  AS  the  decode 

C SEQUENCE  IN  THE  MAIN  PROGRAM  INDICATES  DECODE 

C J=l,2,3  IS  A line  index  FOR  800YP  PARAMETERS  DECODE 

C DECODE 

common/rgass/ax,mx,tx.rrx,gx.ntest,n6as,nfirst  decode 

COMMON  NC,MC.K,PINF,DINF,PMIO,IDYAW,PI,RAr»  NEWCOM 

common  vZ (3) , YPHI (3) ,c (25) .C2<25) fCPHI (?5) ,R(20.25>  NEWCOM 

common  0(20,25) ,P (20,25) «U( 20,25) ,V  120,25) ,W (20,25) ,ASO(20,25)  NEWCOM 

common  CU(a,20,25) ,CUP(A,20,25)  NEWCOM 

c •••  END  OF  blank  common  •*•  CD3CSS 

common  /COECOOE/  GFF,GG,GIM1 ,HInF,V11NF,V2INF,WINX,DINF2  CDECODE 

1 ,ICHECK.*1K1NEG,X1K1NP2,GC(20,25)  CDECODE 

common  /CBOOY/  Z,BZZ,aPMPHI,0ZPHI,TANCO,DELZ  C0ODY 

1 ,PHI (25) ,B (25) ,BZ (25) ,8PHI (25) tCOSPHI (25) ,SINPHI (25)  CBODY 

common  /BLK02/  /META.0Y,TG*(3) ,TG5(3) »T66(3)  BLK02 

1 ,X(20) ,XZ(20,2) ,XR(20,2) ,XPhI (20,2) ,Y(25)  0LKO2 

2 ,TF*(20,2) ,TF6(20,2) ,TF7(20,2)  0LKO2 

common  /BLK03/  ICFL,A2(3) ,A3(3) ,A4(3) »A5(3) ,A7(3)  BLK03 

1 ,IJUMP(25) ,IJUMP1 (25) ,IJMPKT(25)  0LKO3 

common  /0LKO4/  GAMMA, GB, GO, 6E,GA2,OOX,OOY,HOT2,ELIM,LCNT,ISWSMO,NA  BLKOA 
1 ,SN(25) ,GM(20,25)  BUKO* 

C DECODE 

DIMENSION  CV (♦,NOIM,MOIM)  DECODE 

U3»CV(3,1,M|  DECODE 

SW(M)aSWMaCV(2,l,M)  DECODE 

TlaqZ(M)  t T2a0PHI (M) /fl (M)  S T3*1.*T2»*2  DECODE 

IF  (CV(l,l,M)  ,GT.  -600,  .AND,  CV(1,1,M)  ,lT,  700,)  GO  TO  2001  DUMP 

xRITE  (S,3*S6)  m,cv(1,1,M)  DUMP 

3*56  format ( IMl ,, IN  SUBROUTINE  DECODE  Tm£  LOG  OF  PRESSURE  ON  PLANE*, 13,  DUMP 
1 • ON  Thp  body  is*,  1PEI5.6»5X,*—  STOP  — *)  DUMP 

call  save (Dum,oum,oum)  dump 

2001  CONTINUE  OUMP 

P(l,M)=PMae«P(CV(l,l«M) I DECODE 

call  RGAS (P“,Dm,SmM,5)  decode 

0<l,M)a0M  DECODE 

AS(3  ( I ,M)  =AX»AX  DECODE 

(3SQ  = HOT2-2.»m*  decode 

COUMPaQS(3*T3-U3*U3  DUMP 

IF  (CDUMP  .gE.  0.)  GO  TO  lOOl  DUMP 

call  OMPSORT (GHOECOOE, 1 ,Z,K,m, 1 , CDUMP)  DUMP 

1001  MMaSQRT (COUMP) /A2 ( J)  DUMP 

IF(nTEST.GE.0)GO  to  10  DECODE 

GMTal./(l.-PM/(OM*MX) ) DECODE 

GM(l,M)aGMT  DECODE 

10  W(1,M)=MM  DECODE 

v(  1 ,M)  avMa  (|)3-T2*T1*MM)  /T3  DECODE 

u( 1 ,M) »um»Ti»MM»T2*VM  decode 

DO  10  Ns2,NA  DECODE 

KNTsO  DECODE 


2 

3 


0 

9 

10 

11 

12 

13 

1* 

1 

2 

3 

A 

32 

2 

3 

2 

3 

2 

3 

A 

2 

3 

2 

3 

16 

17 

IB 

19 

20 

5 

6 
7 
0 
9 

10 
21 
22 
23 
2A 
25 
11 
12 
13 
lA 
27 
20 

29 

30 

31 

32 

33 
3A 


NSWC/WOL/TR  77-28 


IF (NTEST) 19.20.20 

OECODE 

35 

c 

USE  LAST  value  OF  GAMMA  AS  ESTIMATE  EDO  NEW  VALUE 

DECODE 

36 

19 

ICnT=0 

DECODE 

37 

GMT=GM (n«M) 

DECODE 

38 

17 

GG=GMT»GMT-i . 

DECODE 

39 

GFF=GMT*1 . 

DECODE 

40 

20 

CONTINUE 

DECODE 

41 

U1=CV(1.N.M)  tu2=CV (2.N.MI  $U21=  U2/U1 

DECODE 

42 

UNMiU  (N.M)  =rV(3.N,M)/Ul  *VNM  = V (N.M)  =cv  I4.N.M)  /111 

DECODE 

43 

VK=uNM«»2*VNM»»2 

DECODE 

44 

PMT=HOT?-VK 

DECODE 

45 

CRAP1=U21»U21 

DECODE 

46 

PMTU=PMT-CHaP1 

DECODE 

47 

IE(KNT.lT.2)60  to  32 

DECODE 

48 

X1MNEG  = X1K1S  t XIK  1NP?  = X1K1SP2 

OECODE 

49 

32 

rE(PHTU’;GT.O.0)GO  TO  91 

DECODE 

50 

IE(N.EQ.NA)  WPITE(6>3268)Z«N>M,>< 

OECODE 

51 

IE(n.£Q.NA)G0  to  91 

DECODE 

52 

3268 

FOMMAT ( 1H0.»P  IS  NEGATIVE  SUT  NOT  AVERAGEO  • . 5X . »Z .N t M, K=* .F7 . 3 • 

DECODE 

53 

315) 

DECODE 

54 

KNTaKNTtI  * rE(KNT.LE.2)eO  TO  34 

DECODE 

55 

WRITE  (6,3267)  Z. N.M, K 

DECODE 

56 

3267 

FORmAT(1M0,»P  stays  negative  after  averaging*, 5X,»Z,N,M,K  »*, 

DECODE 

57 

F7.3,3I5) 

DECODE 

58 

IE  (NTEST  .lT.  O)  call  SAVE(DUN,0UM,DUM) 

DUMP 

15 

GO  TO  91 

DECODE 

59 

34 

ieiknt.eq.dgo  to  4 

DECODE 

60 

X1K1S*X1K1NEG  $ X1K1SP2=X1K1NP2 

OECODE 

61 

XlKlNEGsO.  * X1K1NP2»2. 

DECODE 

62 

4 

IF(N.EQ,2)G0  to  5 

OECODE 

63 

00  6 I»l,4 

OECODE 

64 

6 

CVd.N.M  )*(CV(I,N*1,M)»X1K1NEG*CV(I,N,M)*CV(1,N-1,M) )/X1K1NP2 

DECODE 

65 

GO  TO  2 

DECODE 

66 

5 

tcu=om*wm 

DECODE 

67 

CV(  1 ,2,M)  s (CV(  1 ,3,M)  ♦XlXlNeS*Cv(l»2,M>  »TC)J) /XlK]NP2 

DECODE 

68 

CV(2,2,M)=(rV(2,3.M) ♦X1K1NEG*Cv (2,2,M) ,PM«TCU*WM) /X1K1NP2 

OECODE 

69 

CV(3,2,M)=(rV(3,3.M) ♦X1K1NEG*CV(3,2,M) ♦OM*TCU) /X IX 1NP2 

DECODE 

70 

cv (*,2,M) = (CV (4,3,M) ♦XlKlNEG'Cv (4,2.M) ♦ VM*TCU ) /X 1 X 1 NP2 

DECODE 

71 

2 

WRITE (6.3273)  X IK INEG, Z ,N,M,K 

DECODE 

72 

3273 

FORmAT( 1H0.*THE  CONSERVATION  VECTOR  IS  1 -• ,E3. 0 .*- 1 * ,SX , 

DECODE 

73 

1 *Z,N,M,K  = *,F7,3,3!5) 

DECODE 

74 

GO  TO  20 

OECODE 

75 

91 

CONTINUE 

DECODE 

76 

CRAPPaPHTU/CRAPl 

DECODE 

77 

CRAP2=CRAPP*6G 

DECODE 

75 

CDUmP=1 .-CRAP2 

DUMP 

16 

IF  (COUmP  ,GE.  0.)  GO  TO  1002 

DUMP 

17 

call  OMPSQHT  (6M0EC00E,2,Z,K,M,N,C0(JMP) 

DUMP 

18 

1 002 

CR*P3»CRAP2/ ( ( 1 ..SORT (COUMP) )*GFF) 

DUMP 

19 

WNMa(l.-CRAP3)*U2l 

DECODE 

80 

PNM»P(N,M)»CRAP3*U2 

DECODE 

81 

0NM»0(N,M)=U1/WNM 

DECODE 

52 

IF(nTEST)21,22,22 

DECODE 

83 

21 

call  HRGAS (ONM,ONM,OUMMY,2» 

DECODE 

84 

ERRa2.*HX»WNM*WNM-PHT 

DECODE 

85 

WNMpaWNM 

DECODE 

86 

IF ( ASS ( err/MX) -EL IM) 23,23,24 

OECODE 

87 

155 
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2* 

IF ( rCNT) 28t 16 

DECODE 

88 

c, 

.QUAStREAL  GAS  APPROACH  FAILS. I TER ATE  FOR  SOLUTION. 

DECODE 

RR 

c 

• • • • . 

.FIRST  BRACKET  CORRECT  SOLUTION 

DECODE 

90 

16 

<^NHXsMNM1snNH 

DECODE 

91 

FPR)(=eRRl=EP« 

DECODE 

92 

GCC=6C(N.M) 

DECODE 

93 

WNMiERR/GCC*yNM 

DECODE 

94 

IF(0CC.lT.1.E*99)G0  TO  80 

DECODE 

95 

GHT=1./(1.-PNM/(DNM*MX) ) 

DECODE 

96 

ICNT=ICNT*1 

DECODE 

97 

GO  TO  17 

DECODE 

98 

25 

ICNT=ICNT*1 

DECODE 

99 

80 

IF (yNM.GT.U2l) yNMaU2 1-1 .E-10 

DECODE 

100 

PNMsU2-WNM«UI 

DECODE 

101 

0NM=U1/WNM 

DECODE 

102 

CALL  MRGAS (PNM,0NM,0UMMY.2) 

DECODE 

103 

ERR2=ERRa2.»MX*yNM*yNM-PMT 

DECODE 

lOA 

WNM^sWNM 

DECODE 

105 

IF(aBS(ERR/hx)-ELIM  )23<23<26 

DECODE 

106 

c, 

■SOLUTION  NOT  ACCURATE  ENOUGH 

DECODE 

107 

26 

IF(ICNT-LCNT)28.28t30 

DECODE 

108 

30 

WRITE(6.2000)N.M 

DECODE 

109 

2000 

F0RmaT(1H1.2I5.*ITERATI0N  LIMIT  EXCEED*) 

DECODE 

110 

STOP 

DECODE 

111 

28 

IF(ERR*ERR1)27,29#29 

DECODE 

112 

C 

• • • • < 

•solution  NOT  BRACKETED 

DECODE 

113 

C 

• • • • 1 

•EXTRAPOLATE  FOR  NEW  SOLUTION 

DECODE 

llA 

29 

DyNH3(WNM-WNHl)*ERRl/(ERRI-ERR) 

DECODE 

115 

IF ( aBS (OUNH) .GT. .0S*ABS (WNH) ) OWNMa.OS*A8S (WNM) aaBS (DWNM) /DWNM 

DECODE 

116 

WNM2*MNM1*0WNM 

DECODE 

117 

IF(aBS(ERR) .LT.A8S(ERR1))G0  TO  79 

DECODE 

118 

WNMXWNM2 

DECODE 

119 

GO  TO  25 

DECODE 

120 

79 

£RR1=£RR 

DECODE 

121 

DECODE 

122 

WNM=WNM3 

DECODE 

123 

go  TO  25 

DECODE 

12* 

c 

• • « • 4 

•solution  is  bracketed 

DECODE 

125 

27 

ICnT3ICNT»1 

DECODE 

126 

nNM2xKNM 1 • ( mnm.wNMI ) »ERR 1 / ( ERR 1 -ERR) 

DECODE 

127 

PNM*u2-WNM2*UI 

DECODE 

128 

0NMxUl/yNM2 

DECODE 

129 

CALL  MRGAS (PNM,0NM.0UMMT«2) 

DECODE 

130 

ERR2=2.*HX»wnM2»WNM2-PhT 

DECODE 

131 

IF (ABS (ERR2/MX)-ELIM) 23.23tA2 

DECODE 

132 

62 

IF(ICNT-LCNT)63,A3.30 

DECODE 

133 

*3 

IF (ERR2»ERR) AA.44.A5 

DECODE 

13* 

c 

• • • • 4 

,yNM2  AND  kNm  BRACKET  SOLUTION 

DECODE 

135 

44 

WNM1sMNM2 

DECODE 

136 

ERR1»£RR2 

DECODE 

137 

GO  TO  27 

DECODE 

138 

c 

• • • • 4 

•WNMl  AND  KNM2  are  BRACKET  POINTS 

DECODE 

139 

♦ 5 

MNMsWNH? 

DECODE 

1*0 

ERRaERR? 

DECODE 

1*1 

go  to  27 

DECODE 

1*2 

c 

• • • • 1 

•convergence  achieved 

DECODE 

1*3 

23 

GM (N.M) *GMT=1 ./ ( 1 ,-PNM/ (0NM»HX) ) 

DECODE 

144 

156 
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IF  MCN''  .GT.  1)  GC(N.«l  = (E»R2-t«»XI/(WIN(MX-wNM?) 
y I S , M I syNMJi 
PIN,“) =PNM 
n ( N , M ) 

IF ( ICHe-K  .t  ;. 1 ) CALL  ARGA5 (PNM.ONM. AX2t 1 ) 

GO  TO  1 '1 
22  CONTINUF 

AX2=GAMMA»PMM/nNM 
y (N,M) =yNM 
10  ASO (N.M) lAX? 

SHO^^  SHAPE  ANO  THEREFORE  V FREE  STREAM  ARE  KNOWN. 
PRESSURE  Ano  density  ARE  CALCULATED  FROM  SHOCK  RELATIONS. 

UlNX=-(Vl lNF«COSPHI (Ml .V2INEASINPHI (M) ) 
VINX=V1INF»SINPHI(M) -VPINF»COSPHl (M) 

CM=C (M) =CV ( 1 ,NC.M)  » CZM=C2(M)=CV(?.NC.M) 

CPHIM=CPMI (M) =CV ( 3.NC.M)  t CRHC=CPHIM/CM 
DM'J?  = CZh<**2»CPhC*»2»1  . 

CVNMij=W  INX»CZM-U  INX*V1NX»CPNC 

c\/np=cvnmu»»?/dmi;2 
IF(NTEST.GE.O)GO  to  48 
ICNT=0 

gmt=gm(nc.“) 

85  G£= (GMT. 1 . 1 ..s 
GO= (GmT-1 . ) ‘.S 
GAMMAsGhT 

C... ..constant  gamma  formulas 

♦8  COUMPaCVN?* (CVN2»01NF2.PINF»0INE» ( 2 , *8 .aGEpOD/GI Ml ) ) 
j .FINFapINFaGAMMAAGAMMA 

IF  (CDUMP  ,GE.  0.)  GO  TO  1003 
call  OMPSORT (8hOECOOE.3.Z«K»M.NC.COUMP) 

1003  PNM» (PInF.dinFaCVN2*SQRT (COUMP) )/(2.aGE) 

0NM  = r)ir,rACVN2  / (CVN2*  (PINF-PNM)  /OINF) 

AX2=.,AMMA*H‘jM/ONM 

IF  c.rc  sf  ■ s i .5  ! .So 
C rFai.  .,as 

51  call  f-P'A  S ' pNM  . SryM  ,0UMMY«2) 

SN2aC;vN2aO  InF2  / (ONMaQNMI 
DCMa3. »SN2 

£RRs (MX-MiNF) A2..SN2-CVN2 
IF(aHS'POR/mX)-ELIM)52.52.53 
c NOT  ACC'iRATF  Enough 

53  IF ( ICNT I 55 . A i 

81  GMTjl,/'l.-PNM/(nNM»MX)l 
rCNT= [CnT* 1 
CVTn=Sn2 
ERRI^FRO 
GO  TO  85 

54  ICNT=ICNT.l 
C0UMP=CVN2/CVTN 

IE  (CDUMP  .gE.  0.)  GO  TO  1004 

call  OMPSORT (6HOECOOE,4.Z.K.M,NC»COUMP) 

1004  ONhsDINFaSOOT (COUMP) 

PNMiPINF.O INF AQVN2A ( 1 .-0  INF /ONM) 
call  hRGAS (PNM.ONM.OUMMY.E) 

EPP1s2.»(mx-hInF) .CVTN-CVN2 


DECODE 

145 

DECODE 

145 

DECODE 

147 

DECODE 

148 

DECODE 

UR 

DECODE 

150 

DECODE 

151 

DECODE 

152 

DECODE 

153 

DECODE 

154 

DECODE 

155 

DECODE 

156 

DECODE 

157 

DECODE 

158 

DECODE 

159 

DECODE 

160 

DECODE 

161 

DECODE 

162 

DECODE 

163 

DECODE 

164 

DECODE 

165 

DECODE 

166 

DECODE 

167 

DECODE 

168 

DECODE 

169 

DECODE 

170 

DECODE 

171 

DECODE 

172 

DUMP 

20 

DUMP 

21 

DUMP 

22 

DUMP 

23 

DUMP 

24 

DECODE 

175 

DECODE 

176 

DECODE 

177 

DECODE 

178 

DECODE 

179 

DECODE 

180 

DECODE 

181 

DECODE 

182 

DECODE 

183 

DECODE 

184 

DECODE 

185 

DECODE 

186 

DECODE 

187 

DECODE 

188 

DECODE 

189 

DECODE 

190 

DECODE 

191 

DUMP 

25 

DUMP 

26 

DUMP 

27 

DUMP 

23 

DECODE 

193 

DECODE 

194 

DECODE 

195 

157 
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IF(ABS(ERR1/mX)-ELIMI52.52.58 

DECODE 

196 

58 

IE(ICNT-LCNT)55.55*57 

DECODE 

197 

57 

WBITE (6.2003)N 

DECODE 

198 

STOP 

DECODE 

199 

3003 

F09MAT t IHl «*LIMIT  ON  SMOCK  ITERATIONS  EXCEEDED*. 15) 

DECODE 

200 

55 

IE(ERR1»ERR)56.56.76 

DECODE 

201 

c • • • • 

.POINT  NOT  BRACKETED 

decode 

202 

76 

DCVN= (SN2-CVTN) •ERRl/ (ERRl-ERR) 

DECODE 

203 

IF ( ABS (DCVN) .0T.A8S(3.«0CH) ) 0CVN=3.*DCH»ARS (DCVN) /DCVN 

DECODE 

204 

CVT?=CVTN»OCVN 

DECODE 

205 

IF(ABS(EMH) .GT.ABS(ERRl) )GO  TO  78 

DECODE 

206 

SN2=CVT2 

DECODE 

207 

GO  TO  54 

DECODE 

208 

78 

SN2=CVTN 

DECODE 

209 

eor=erbi 

DECODE 

210 

CVTN=CVT2 

DECODE 

211 

60  TO  54 

DECODE 

212 

C.... 

.SOLUTION  bracketed 

DECODE 

213 

56 

CVT2=SN2» (CVTN-SN2) •ERR/ (ERR-ERRl ) 

DECODE 

214 

ICNT=ICNT«1 

DECODE 

215 

C0UmP»CVN2/CVT2 

DUMP 

29 

IE  (CDUMP  .GE.  O.I  GO  TO  1005 

DUMP 

30 

CALL  DMPSQRT (6HOECOOE.5.Z.K,M.NC.COUNP) 

DUMP 

31 

1005 

ONMaO I NF*SQRT ( CDUMP ) 

DUMP 

32 

PNM=PINF*OINF«CVN2*(1.-OINF/ONM) 

DECODE 

217 

CALL  HRGAS(PNH.0NM«0UMMY<2) 

DECODE 

218 

E»RN*2.«(MX-MINF) «CVT2-CVN2 

DECODE 

219 

IE(A0S(ERRN/HX1-ELIM)52«52.61 

DECODE 

220 

61 

IE(ICNT-LCNT)62.62.58 

DECODE 

221 

62 

IF (ERRN«ERR 168.69.69 

DECODE 

222 

c • • • • 

.ERR  ANO  ERRn  bracket  THE  SOLUTION 

DECODE 

223 

68 

CVTn*CVT2 

DECODE 

224 

ERRlaERRN 

DECODE 

225 

GO  TO  56 

DECODE 

226 

C.... 

.ERRl  AND  ERRN  BRACKET  THE  SOLUTION 

DECODE 

227 

69 

SN2aCVT2 

DECODE 

228 

ERRsERRN 

DECODE 

229 

GO  TO  56 

DECODE 

230 

c • • • • 

.CONVERGENCE  ACHIEVED 

DECODE 

231 

52 

GM(NC.M)=1./(1.-PNM/(DNM»HX) 1 

DECODE 

232 

call  ARGAS(RNH.DNM«AX2.U 

DECODE 

233 

50 

CONTINUE 

DECODE 

234 

XLCA=CVNMU*( 1 .-OINF/ONM) /0MU2 

DECODE 

235 

UNM=U(NC.M) =UINX*XLCA  S VNM«V (NC.M) »VINX-XLCA»CPHC 

DECODE 

236 

NNM»K(NC.M) =winx-xlca«czm 

DECODE 

237 

P (NC»M) =PNM 

DECODE 

238 

0 <NC.M)  =0NM 

DECODE 

239 

ASQ(NC.M)3AX2 

DECODE 

240 

return 

DECODE 

241 

END 

DECODE 

242 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


SUH^OUTINF  f VAL  I L iM, I T , JSG , JCG . JCFCF ) 

EVAL  computes  flux  and  SOUPCE  VFCTOPS  Cf.CGtCF 
FPOM  FLO«  vAPIABLES.  TPANG  AND  TPANF  QUANTITIES. 

EVAL  ALSO  COMPUTES  CFL  PAPAmETEP. 

IF  L=0  evaluate  functions  and  CHECx  CFL  (POEDICTOP) 

IF  L=i  evaluatf  Functions  ccoppectop) 

IT=l.?  rs  A line  index  fop  XZ.XO.XPmI,tF4.TF5«TF6.TF7 

jSG=i,2,3  IS  A LINE  Index  fop  pmi .yPhi .yz.tga.tgs.tgs 
JCG.JCFCE  ape  line  indexes  for  CG  and  (CF.CE)  PESPECTIVELY 

common  NC.mc.k .pinF.OINF .PHIOt IOYAW.PI .pad 

common  yZ ( 3l .YPHI (31 ,C (25) .CZ (?5) .CPHI ( 25 ) . P ( 20 , 25 ) 

common  0(20.25).P(20.25)«0<20.25).V(20,25).«(20,25),ASQ(?0.25) 

common  CU(4.20«25) «CUP(4.20.25) 

•*•  ENO  OF  blank  common  •»» 

common  /CEVALZ  NCEL. JCFL«MCFL.CFL»RJ 
common  /CeODY/  Z.SZZ.BPhPMI .bzpbi.tanco.oelz 

1 .PHI (25) .B (25) ,BZ (25) .SPMI (25) .COSPhI (2S) .SINPHI (25) 
common  ZBLKOl/  CZY  ( 3 I .CPHI  Y (3)  . V2  ( 3)  . VOWY  ( 3)  .PWY  ( 3 ) ,SiVY  ( 3) 

1 .UNOP (3.2).CF(4.20.2)«CG(4.20.3).CE(4.20.2) 
common  ZBLK02/  theta. OY. TG4(3) .TG5(3) .TG6(3) 

1 .X(20)«XZ(20*2)»XR(20.2) .XPHI (20.2) .Y (25) 

2 .TF4(20.2) .TF6(20.2) .TF7(20.2) 

common  /BLK04/  GAMMA .GB.6D.GE .6A2.OOX.DOY.HOT2.ELIm.lCNT. ISKSMO.NA 
1 .SW(25) .GM(20.25) 

CZY ( JCG) =C2 (M)  t CPHIY ( JCG) =CPHI (M) 

YPHIJsYPHI  ( jSG)  * YZj  = yZUS6)  % T65J=TG5  ( JS6) 

00  10  N=1.NC 

UNMsU(N.M)  t WNM=*((N.M)  $ PNHZPIN.M)  $ VNMsV(N*l^) 

0NM=0(N.M)  H PNMSR(N.M)  % X2N=XZ(N.IT)  $ XRN=XR(N.IT) 
KPHINsXPmI (N. IT)  S TF4N=TF4 (N. IT)  $ TF6N=TF6 (N . I T ) 

7F7‘/  = TF7  (N.  IT) 

yPOP=YPhI J/3NM  SXP0R=XPHIN/PNM 

VOpaVNM/PNM  t An=XPN»UNM*XPHlN»VOR  « A A =MNm» X ZN* AO 
IF  (N  ,l£.  ))  ..'NOP  (N.  JCFCE)  =AA 

RB=WNM»YZJ‘ ypb[ jovOP 

XPP=XPN«PNM 

IF  (N  .NE.  n GO  TO  4 

0WY(JCG)=PNm  s VOwy  ( JCG)  =VNM/y(NM  S SWY  ( JCG)  =SW  (M) 

V2 ( JCG) sVNm.bpmI (M) •UNMZB (M) 

4 CF  ( 1 .N.  JCFC<- ) =P4=0NM»4A 

CF ( 2.N. JCFCF) =XZN»PNM.RA»WNM 
CF ( 3. N. JCFCF ) =XRP*PA»UNM 
CF ( 4. N. JCFCF) =XOOP»PNM.RA»VNM 
CG(I.N.JCG)  I pa=0NM»BB 
CG(2«N.JCG)  = yZj»PNm.pb»*(NM 
CG(I.N.JCG)  = PB»UNM 
CG(4.N.JCG)  s YP0R«PNM.BB»VNM 

CE  ( 1 .N.  JCFCE)  3EI  =DNM*  (UNM/RnM*TF4N»AA*TG5J»BB»TE6N*»(NM 
1 ♦TF7N*V0P) 

CE (2tN. JCFCE) =MNM*EI» (TG5J»YZJ»TE4N*XZN*TFGN) »pNM 
CE (3. N. JCFCE) =UNM*E1-VNM»V0P»0NM.TF4N»XRP 
CE  ( 4.  N.  JCFCE)  =VNM»£  1 ♦ ( VNM»0NM»(JNM»PNM 
1 »(TE4N*XPHlN*rG5J*YPHIJ«'TF7N)  ) ZRNM 

5 IF  (L  .FO.  1)  GO  TO  10 
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c • 

••  CHECK  OF  CFL  CONDITION  ••• 

EVAL 

*5 

IF  (PNM  .LE.  0.)  GO  TO  10 

EVAl 

A6 

AS0NM3ASQ(N,H) 

EVAL 

*7 

ETA=WNM»WNM-ASQNM 

EVAL 

48 

OUMI = (ETA» ( *RN»XRN«XP0R«*2) ♦AD«»2) »ASQNM 

EVAL 

49 

YPRR=YP0R»RJ  S JCF=1 

EVAL 

50 

DUMPS ( (ETA*VNM»VNM) •YPRe*»2»  *AS0NM 

EVAL 

51 

WI^X  isWNM*AA-ASONM<>X2N 

EVAL 

52 

WWXPS (WNM»BR-AS0NM»YZJ| *00 

EVAL 

53 

IF  (DUMl  ,GF.  0.)  GO  TO  1001 

DUMP 

2 

call  OMPSQRT ( AMEVALt 1 .Z«K,MtNtDUMl) 

DUMP 

3 

1001 

continue 

DUMP 

4 

SIG  = ABS<H(WX1)  ♦SQRT(OUMl) 

EVAL 

54 

SIG2=ABS(«WX2) *SORT(OUM2) 

EVAL 

55 

IF (SIG2.lt. SIG)  GO  TO  7 

EVAL 

56 

JCF  = 2 * SIG  = SIG2 

EVAL 

57 

7 

SIGT3ABS(MMX1*MI»X2) 

EVAL 

58 

1 *SQRT (OUM1*OUM2*2.»ASQNM»YPR0»(ETA*XPOR*AD»VNM) ) 

EVAL 

59 

IF (SIG3.LT.SIG)  GO  TO  8 

EVAL 

60 

jCFs3  S SIG=SIG3 

EVAL 

61 

8 

CFLXsSIG/ETa 

EVAL 

62 

IF(CFLX.LE.CFL)  go  TO  10 

EVAL 

63 

NCFL=N  % MCFLaM  S JCFLaJCF  S CFL=CFLX 

EVAL 

64 

10 

continue 

EVAL 

65 

RETURN 

EVAL 

66 

ENTRY  EVALPR 

EVAL 

67 

C 

EVAL 

68 

C 

EVALPR  - EVALSY  COMPUTES  CG  VECTOR,  MALL  VALUES 

OF  P»  V2, 

EVAL 

69 

C 

V/M,  s AND  SMOCK  SLOPES  CZ  AND  CPHI  AT  PLANES 

EVAL 

70 

c 

Y»-OY  AND  Y«l*OY  , (EVALSV) 

Ya-OY  AND  Y»1  (EVALPR) 

EVAL 

71 

c 

EVAL 

72 

c 

EVAL 

73 

YZjaYZ(JSG)  S YPMIJaYPHl ( JS6) 

EVAL 

74 

CZY(JCG)»CZ(M) 

EVAL 

75 

PWY ( JC6) aP ( 1 ,M)  $ VOMY(JCG)aV(l,M)/w(l.M)  % SMY ( JCG) aSW (M) 

EVAL 

76 

V2(  )CG)aV(l.M)  .U( 1 ,M) aRPHI  (M) /6 (M) 

EVAL 

77 

CPHIY ( JCG) =CPMI (M) 

EVAL 

78 

FACs-l . 

EVAL 

79 

GO  TO  15 

EVAL 

80 

ENTRY  EVALSY 

EVAL 

81 

FAClaOY»TG5 ( IT)  * FACa (3 .-FAC  1 ) / ( 2. ♦FACl ) 

EVAL 

82 

IF  (M  ,NE.  2)  FAC=1./FAC 

EVAL 

83 

YZJaYZ(jSG)  S YPHI JaYPHI ( JSG) 

EVAL 

84 

PWY ( JCG) aP ( 1 ,M)  t VOWY(JCG)a-V(l,M)»FAC/W(l.M)  5 

SMY(JCG)=SM(M) 

EVAL 

85 

V2 ( JCG) a-( V ( 1 f M) »U( I .M) *0PHI (M) /P(M) )*FAC 

EVAL 

86 

CZY ( JCG) =CZ (M)  S CPHIY (JCG) a-CPHI (M) *FAC 

EVAL 

87 

IS 

00  20  Nal.NC 

EVAL 

88 

UNMsU(N.M)  S PNMsP(N,M)  I RNHaR(NfM)  S WNMsM(N.M) 

EVAL 

89 

VNMs-V(N,M)»FAC  S 0BaYZJ»WNM»YPHI J»VNM/RNM 

EVAL 

90 

CG( 1 ,N, JCG) aRBsO(N.M) *88 

EVAL 

91 

CG (2,N, JCG) aYZJ*PNM*R0*MNM 

EVAL 

92 

CG(3tN,JCG)aR8*UNM 

EVAL 

93 

CG (A .N, JCG) aYPHI J*PNM/BNM»R0*VNM 

EVAL 

9* 

20 

CONTINUE 

EVAL 

95 

retijrn 

EVAL 

96 

end 

EVAL 

97 

ooonnonoo 


NSWC/WOL/TR  7 7 -.2  8 


SU^'ROUTINE  JUMP  (DHP.0B7.MB)  JUMP 

JUMP 

JUMP  COMPUTES  JUMPS  CORPESOONDING  to  niSroNTIMiITIES  in  jump 

RZ  AND/OR  RPhi.  jump 

NOTE  that  the  key  IJUmP1(MB>,  used  in  subroutine  mall.  jump 

IS  set  in  this  subroutine  jump 

IJIIMPI  (MB)  = ? MEANS  there  is  no  jump  in  PW  jump 

= T means  there  is  an  expansion  jump  jump 

= 4 MEANS  there  is  a compression  jump  jump 

JUMP 

common  NC.mc.K.PINF.DInF.PmIO.IOYAW.PI.RAD  NEMCOM 

common  yZ ( 3) ,YPhI( 31 .C(25) .CZ<?5) .CPHI (?5) .R(Z0.25)  NEWCOM 

common  D(20.2S) .P(2n.2S I .U(P0.2S) .V (20.25) (20.25) .ASO (20,25)  NEWCOM 

common  CU(4.2Q,?5) .CUP(4,20,25)  NEWCOm 

C •*»  END  OE  PLANK  COMMON  CD3CSS 

common  /CHOOY/  Z.BZZ.BPhPhI .BZPhI .tanco.dflz  cbody 

1 .PHI (26) ,8 ( 25) ,BZ (2B) .BPHI (35) .COSPhI (?S) .SINPHI (25)  CBODY 

common  /BuKOl/  CZY(3)  .CPHIY(3)  .V2(3)  »VOWY(3)  .P)YY(3)  .SWY(3)  0LKO1 

1 .UNOR ( 3.2) ,CE (4,20 .2) .CG (4.30,3) .CE (4,20.2)  BL«01 

common  /BLK02/  theta. OY. TG4(3) .TG5(3) ,TG6(3)  0LKO2 

1 .X (20) ,XZ (20.2) ,XR (20,2) .KPHI (20.2) ,Y (25)  BLK02 

2 ,TF4(20,2) ,TF6(30,2) ,TF7(20,2)  BLK02 

COMMON  /BLK03/  ICFL.A2(3) ,A3(3) .A4(3) .A5(3) ,A7(3)  0LKO3 

1 . IJUMP (25) . I JUMPl (25) .1 JMPKT (35)  0LKO3 

common  /8LK04/  gamma, G0. GO. GE,GA?.00X.D0Y»H0T2,ELIM.LCNT,ISWSM0.NA  BLK04 

1 ,SW(25) .GM(2n,25)  0LKO4 

common/rgass/ax.mx.tx.rrx.gx.ntest.ngas.nfirst  jump 

c JUMP 

ICNT=0  JUMP 

ERR2=SIN2*0.0  jump 

owe*. 05  JUMP 

data  (Int=1b)  jump 

VW  = V(l,Mfl)  5 Pm  = P(1.M0)  S 0)«  = 0(1,MB)  S WW»W(1.MB)  JUMP 

AS0W  = AS(5  ( 1 .MB)  % U»l  = U(l.M8)  JUMP 

S0=SW(MH)  JUMP 

PHiHrPHI (MBl /RAO  JUMP 

«PITE  (4.31n0)  mb.phId.K.Z  JUMP 

BlOO  format ( 1H0.4JUMP  IS  called  for  plane*. I*»5X.»PHI  IS*.F7.3,  JUMP 

1 5x.»k  IS»,l4,5X.oZ  IS»,1PE15.6)  JUMP 

write  (5,3110)  JUMP 

3110  FOPmaTUM  ,30X,»THE  INPUT  VARIABLES  ARE  AS  FOLLOWS*)  JUMP 

WRITE  (5,3120)  PW.OW.UW.VW.WW.SO.ASQW  JUMP 

3120  FOBmatuh  .R3hp.P,u,V,W.S.A50  ,1P7E15.5)  JUMP 

write  (5.3130)  B (MB)  ,B7(MB>  .(3PmI  (MB)  ,O0P.DRZ.MOT2  JUMP 

3130  FORMATdH  .22hb,R7,BPhI,O0P,D8Z.HOT2,1P5E15.5)  JUMP 

ETAP=8Z(“fll  t StP  = RRHI  (M(3(/B(MP)  JUMP 

ETAm=ETAP*OpZ  S SIMrSIo.OBP  JUMP 

XNP2=1  . ,£TAP»»P.S  I°**2  S XNP  = S(JRT  (XNP2)  JUMP 

XNM2=1 .,ETAm»»2,SIm»«2  S XNM=sqbt (XNM2)  JUMP 

XNMP=1 .«etap»etam»sip*sim  jump 

0UM2*XNP2*XNM?-XNMP»*2  S OUM=SORT (DUM2)  % XT2=nBP*ETAM-SIM«OBZ  JUMP 

XTS0=0BP**2,QBZ»*2‘XT2**2  S XT  = S(3RT  ( XTSO ) JUMP 

0T= ( XT2»UW,OBP*WW-OBZ*VW) /XT  JUMP 

qSMsXNM*  (UW-ETap»WW-SIp<>VW) /DUM  t amm5O=(3Sm»»2/aS0W  JU“P 

TEST= ( XNMP»ctam-xnm2*FTAP) »0SM  JUMP 

lE  (TEST  .GT.  (1.)  GO  TO  S JUMP 

C JUMP 
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THr  FLOW  DOES  NOT  CROSS  EDGE  FROM  MINUS  TO  PLUS 
(NO  JUMPS  IN  P,  0.  S.  QSQ) 

WRITE  (6,3135) 

3135  FORMftT(lH  .•TMF  FLOW  DOES  NOT  CROSS  EDGE  IN  MARCHING  DIRECTION*) 
IJUMPl (MB) =? 

QSP=QSM 
GO  TO  11 0 

5 THETAR=aCOS (XNmo/(XNP*XNM) ) t CONSTsHOT?-OT*»?  % QSQ»QSM**? 
THFtaD=THETaR/RAO  S AMACH=S0RT { 3S0/ASQW) 

IE  (AMMSO  .GE.  1.0)  GO  TO  10 

C •»®  SUBSONIC  CORNER  ELOW  (NO  JUMPS  IN  P.O.S.QSQ)  *** 

IJUMPl (MB) =? 

osPrQSM  % GO  TO  no 

10  IP  (OSM  .LT.  0.)  GO  TO  20 
C »•*  SUPERSONIC  EXPANSION  CORNER  ••• 

WRITE  (6.3U0) 

31*0  FORMATdH  . 20  X , ®SUPERSON  I C EXPANSION  COPNEP  WHERE*) 

WRITE  (6.3150)  THETAO.AMACH.QT.OSH 
3150  FORMATdH  .22HTHETA,AMACH,QT.0SM  .1PAE15.5) 
call  RGAS (Pw.OW.OUMHY.A) 

VPOVR=SORT ( ASOW/ (CONST-?. *HX-ASOW) ) 

DEL=THETAR/FL0AT ( INT) 

DO  15  1=1. INT 
CC=0.  I PWOrPW 
DWO=OW 

17  droal=-ow»qso*vpovr 
0D0AL=0P0AL/AS0W 
CO=CC*l . 

PW= (PW0*PW*CC‘0EL*DPDAL) /CO 
OW= (DWO.OW*cC‘DEL*ODDAL) /CO 
call  RGAS (PW.OW.OUMMY. A) 

0SQ=C0NST-2.*HX 

asow=ax«ax 

VPOVR=l . /SOOT (OSO/ASQW-1 .0) 

CC=CO  t IE  (CC  .LT.  1.5)  GO  TO  17 
15  CONTINUE 

ICFl=1  f IJUMPl (MB) =3  S IJMPKT(mb)=i 
OSP=SQRT (QSO)  S GO  TO  100 

C •»*  supersonic  COMPRESSION  CORNER  *** 

20  C0STH2= ( XNMP/ ( XNP*XNM) ) **2 
IJUMP1(MB)=*  J IJMPKT(mB)=1 
ISWSM0=0 
WRITE  (6.3160) 

3160  FORMATdH  . POX. ‘SUPERSONIC  COMPRESSION  CORNER  WHERE*) 

WRITE  (6.3150)  THFTAO.AMACH.OT.OSH 
IF  (NTEST  .LT.  0)  GO  TO  *000 
C *•*  (PERFECT  GAS  OBLIOtlE  SHOCK  RELATIONS)  *** 

SlNTH2=l .-COSTH2 

AM*  = AMMS(3»»2  s AM2  = AMMSQ 

CI=-( (AM2*2.)/AM2*GAMMA*SINTH2)  S C3=-C0STH2/AM4 
C2=(2.«AM2*I,)/AM4*(.25*(GAMMA*1.)**2* (GAMMA -I . ) /AM?) *SINTH2 
OUMm=c1/3.  S A=-C2*0UMM*C1  J S0=C3- ( C2-2 . *C 1 **2/9 . ) *0UMM 
OOUm=SORT ( A/3. ) i DDUM1=2.*00UM 

TEST=-.5*SH/ (0nUM**3)  J IF  (TEST  .GE.  -1.0)  GO  TO  25 
WRITE  (6.3165) 

3165  FORMATdH  .20X. ‘NORMAL  SHOCK  MODE  IS  USED*) 
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59 

JUMP 

60 

JUMP 

61 

JUMP 

62 

JUMP 

63 

JUMP 

64 

JUMP 

65 

JUMP 

66 

JUMP 

67 

JUMP 

66 

JUMP 
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JUMP 
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JUMP 
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JUMP 
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JUMP 
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JUMP 
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JUMP 
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JUMP 
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JUMP 
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PWOrPW  5 T=au?  $ GO  TO  A5 

JUMP 

101 

?z 

XX=aC05(TESt)/g. 

JUMP 

102 

Xl=rOS(XX)  «;  X?=COS(XX*?.»PI/3.)  % X3=COS  ( X X ♦ A . »PI /3.  ) 

JUMP 

103 

IE  (XI  .LT.  X2)  go  xq  30  S xnUM=Xl  X X1=X2  t X2=XOUM 

JUMP 

lOA 

30 

IE  (XI  ,LE.  X3)  GO  TO  35  S SX=X1  $ GO  TO  AO 

JUMP 

105 

35 

IE  (X3  .LE.  X2)  X?=X3  s SX=X2 

JUMP 

106 

<►0 

SINTH?  = OOUM1»SX-OUMM  5 T = AH2»SI '4TH2 

JUMP 

107 

GR  = GE/r,n 

JUMP 

108 

PW=ow»( (GA2*T-1.)/G9) 

JUMP 

109 

DW  = nW*(T/(T/GR*l./GE)  ) 

JUMP 

no 

05P  = 0SM»SQRT ( 1 .-(T-1 .0) * (GAMmA»T*1 . ) / { T*AM?*GE**2)  ) 

JUMP 

111 

CALL  RGaS(Pw,DW,SM (MB) ,A) 

JUMP 

112 

AS0W=AX»AX 

JUMP 

113 

IE  (TEST  .GF.  -1,0)  GO  TO  100 

JUMP 

llA 

CONS T= A SOW/ (GAMMA-) .0)*.5»OSP**2 

JUMP 

115 

PW=PW»SINTH2 

JUMP 

116 

IE  (PW  ,GT.  PWO)  GO  TO  75 

JUMP 

117 

PW  = OWO  % IJIJMPI  ()<B)  *2  S IJMPKT(MB)=0 

JUMP 

118 

GO  TO  75 

JUMP 

119 

<►000 

continue 

JUMP 

120 

c *•*  real  ga<5  orltoue  Shock 

JUMP 

121 

TEST=0.0 

JUMP 

132 

call  R6AS  (Pw.DWtDUM)AY,A) 

JUMP 

123 

WRITE(6.300)PW,DW,AX.HX.ASQW.AMMSQ 

JUMP 

12A 

300 

FOPMATdH  .IAE16.8) 

JUMP 

125 

HXMsHX 

JUMP 

126 

SlNO=SORT( 1 .-C0STH2) 

JUMP 

127 

TANO*SINO/SORT(COSTH2) 

JUMP 

128 

SlNla-OWC*.O01«SIN(l./SQRT(AM)WSa)  ) 

JUMP 

129 

IE(SIND.6E.SIN1)SIN1=SIND*.001-OWC 

JUMP 

130 

in 

SIN1=SIN1*DWC 

JUMP 

131 

GO  TO  108 

JUMP 

132 

101 

SINi=SIN2-EQR2* (SIN3-SIN2)/(ERR3-ERR2) 

JUMP 

133 

108 

COSl=SORT (1 ,-SIMl»SINl) 

JUMP 

13A 

CTNi=C0S1/STN1 

JUMP 

135 

Ul=OSM»SINl 

JUMP 

1 36 

VT=0SM*C051 

JUMP 

137 

U?  = VT»n.-TANO<>CTNl)  / (TAN0*CTN1  1 

JUMP 

138 

DWT3DW*U1/U2 

JUMP 

139 

PWTsPW*OW»Ul*Ul-OWT*U2*U2 

JUMP 

lAO 

WRITE(6.300)PWT,DWT,SIN1 

JUMP 

lAl 

CALL  RGaS(PwT,DWT.SW(MB) tA) 

JUMP 

1 A2 

(3SP  = -SOPT  (U?*U2*VT»VT) 

JUMP 

1A3 

IE (-OSP/AX ,GE. 1 . ) GO  TO  109 

JUMP 

lAA 

IF (PWC.LT. .005)00  TO  113 

JUMP 

1A5 

DWC=OWC/2. 

JUMP 

1A6 

S!N1=SIN1-0WC 

JUMP 

1A7 

GO  TO  108 

JUMP 

ua 

113 

WRITE (6.3000) 

JUMP 

1A9 

3000 

FORMAT (O  NO  OBLIQUE  SHOCK  SOLUTION.  NORMAL  SHOCK  MODE  USED.*) 

JUMP 

150 

GAMMA=GM ( 1 ,m8) 

JUMP 

161 

G»2=2.*Gamma/ (GAMMA-1 . ) 

JUMP 

152 

GCC* (GAMMA. 1 .)/ (GAMMA-1 . ) 

JUMP 

153 

GE= (GAMMA. 1 . ) /2. 

JUMP 

15A 

TEST=-2. 

JUMP 

155 

PWT=PW* ( (GA2*AMMSO-l . ) /6CC) 

JUMP 

156 

OWT=OW» (AMmsq/ (ammSO/GCC*! ,/GE) ) 

JUMP 

157 
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COLL  RGAS (PWT.OWT.SW (MD) ,♦) 
aSQw=4X*4X 

GO  TO  9H  ’ 

109  E9R  1 =2  . » ( HX.M-HX  ) ♦Ul  •Ul-U2«U2 
ASQw=AXoAX 

write  (6.20  00) ICMT.SINl ,ERR1,SIN2,ERR2,SIN3,ERR3 
2000  FOR'^ATdH  .I5.6E16.P) 

IF( ABS(ERR1/HX) .LT.ELImIGO  to  9fl 
ICMT=ICNT*1 

IF ( icnt,gt.?)go  to  1 06 

frr-?  = crc(2 
SIN3=SIN2 
S IN2=SIN1 
ERR?=ERR1 
GO  TO  111 

106  IF ( ICNT.LE.2*LCNT)G0  TO  103 
WRITE (6.200) 

200  FORMAT! IHl .•oblique  SHOCK  ITERATION  EXCEEDS  LIMIT*) 

STOP 

103  IF(FRR1*ERR2.GE.O.O)GO  TO  104 
ERR3=ERR1 

SIN3=SIN1 
GO  TO  101 

104  IF(ERR1»ERR3.GE.O.O)GO  to  lOS 
ERR?=ERR1 

SIN2»SIN1 
GO  TO  101 

105  ERR3=ERRi, 

ERR2*ERR1 
SIN3»SIN2 
SINa^SINl 
GO  TO  111 

98  CONTINUE 
OW=OWT 
PWrPwT 

IF  (TEST  .GF.  -1.0)  GO  TO  100 

C0NST=HX*.5»0SP®*2 

PWrPW  »(1.-C0STH2) 

IF  (PW  .GT.  PWO)  GO  TO  75 
PW=owo  5 IJUMP1(M8)=2  % IJMPKT(M0)=o 
75  CALL  RGAS(Pw,Dw,SW()itB)  .5) 

ASOw=AX»AX 

0SP=-SQRT(2.»(c0NST-HX) ) 

100  D(1.M0)=OW  T P(1.MB)=PW  $ ASO(l.MB)=ASQW 

110  AAl^OT/XT  S A4?=0SP/ (0UM»XNP) 

V( 1 ,HB)=AA2» (XNP2®SIM-XNMP»5IP) -AA1*0BZ 
U(1,mQ)=AA1«xT2*AA2»( XNHP-XNP2) 

W ( 1 .M0) rAA 1»0BP*AA2* (XNP2*ETAM-XNMP*ETAP) 
write  (6.3170) 

3170  FOR'uATdH  ,30X,*THE  OUTPUT  VARIABLES  ARE  AS  FOLLOWS*) 

write  (6.3120)  PW.OW.U ( 1 .MB) ,V ( 1 .MR) ,W (1 .MB) ,SW (MR) , ASO ( 1 .MB) 

RETURN 

END 
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SUBQOUTINE  TRANF(M,J,I) 

c 

c tranf  defines  quantities  associated  with  the  clustering 
C transformation  in  the  R direction  (SEE  statements 

C 1-fl  BELOW).  THE  CLUSTERING  TRANSFORMATION  IS  ASSUMED 

C IN  THE  FORM 

C SX  = SF(X.Y.Z)  WHERE  SX= ( P-B { 7 . PH  I ) ) / ( C ( Z t PH  I ) -B  ( Z » PH  I ) ) 

C the  user  can  specify  THE  FUNCTION  SF(X,Y,Z). 

C The  user  must  define  as  functions  OF  (X»Y,Z)  THE  FOLLOWING 

C SX,  SFXt  SFY,  SFZ*  SFXX,  SFZX,  SFYX 

C SEE  USERS  MANUAL  FOR  RESTRICTIONS  AND  INSTRUCTIONS 

C J=1.2t3  IS  A line  index  FOR  TRANF  QUANTITIES 

C 1=1,2  IS  A line  index  FOR  TRANF  QUANTITIES 

C 

COMMON  NC,MC,K,PINF,DINF,PHI0, lOYAW.PI ,RAD 

COMMON  yZ<3) ,YPHI (3) ,C<25) ,CZ (25)  ,CPHI ( 35 ) , P ( 20 . 25 ) 

common  0(20,35)  ,P (20,25) ,U (20,25) ,V (20,35) ,W (20,25) ,ASO(30,25) 

common  CU(4,30,25) ,CUP(4,30,25) 

C ®**  END  OF  blank  common  ••• 

COMMON  /CTRANF/  NSFD,SFO(20) ,SFXO(20) ,SFXXD(20) 
common  /CBODY/  Z,0ZZ,BPHPHI,BZPHI,TANCO,DELZ 
1 .PHI (35) .8 (35) ,0Z (35) ,BPHI (35) , COSPH I ( 35 ) , S I NPHI ( 35 ) 
common  /BLK02/  THETA, DY, TG*(3) ,TG5(3) ,TG6(3) 

1 ,X(20),X7(20,2),XR(30,2),XPHI(20,2),Y(25) 

2 ,TF4(20,3) ,TF6(30,2) ,TF7(20,3) 

C 

CZM=CZ(M)  S BM«8(M)  S 3ZM=BZ(M)  SBPHI M«8PHI ( M ) 

CMB3C(M)-9M  $ 0ZMCZ»BZM  - CZM  S BPMCP»SPHIM  -CPHI(M) 
YZJ=YZ(J)  $ YPHIJbYPhI ( J)  $ TG6J=TG6(J) 


this  routine  is  version  1 of  tranf  corresponding  either 
to  no  clustering,  I.E.,  SF(X,Y,Z)=X 
or  the  USER  HAS  READ  IN  THE  SF(X)  DATA  POINTS 

SFX=1.0  S SFXX=0.0  J SFY=0.0 
SFZX=0.0  I SFYX=0.0  S SFZ=0.0 
DO  100  N=1.NC 
IF  (NSFO  ,EQ.  0)  GO  TO  25 

The  user  read  in  the  SF(X)  data  points 

SX=SFD(N)  S SFX*SFXC(N)  $ SFXX=SFXXO(N) 
go  to  50  _ 

CORRESPONDS  TO  NO  CLUSTERING 

25  SX=X(N) 

c *»•  THE  following  statements  Should  appear  in  all  versions  *•* 

50  SX1=SX-1. 

FX=l ,/SFX 

FTHD=-SFY»Fx*YPHI J 
FZ=-FX* (SFZ*SFY»YZJ) 

1 R(N,M)=BH*SX»CMB 

2 XR (N, I ) =TXR=FX/CM8 

3 XZ  (N, I ) =FZ*TXR* (SX1»BZM-SX«CZM) 

4 XPHI (N, I)=FTH0,TXR*(SX1»BPHIM-SX®CPMI (M) ) 
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TF4(N,I)»SFXX/SFX 

TRANF 

50 

TF6 (N. I) =TG6J  ♦ (SFZX*SFYX*YZJ) /SFX-BZMCZ/CMB 

TRANF 

51 

TF7  (N, I) »SFYX*YPHIJ/SFX-BPMCP/CMB 

TRANF 

52 

CONTINUE 

TRANF 

53 

RETURN 

TRANF 

54 

entry  TRANFw 

TRANF 

55 

IVERSON«l 

TRANF 

56 

WRITE  (6»3000)  IVERSON 

TRANF 

57 

IF  (NSFD  .EO.  0)  WRITE  (6.3010) 

TRANF 

5S 

F (NSFO  .NE.  0)  WRITE  (6,3020) 

TRANF 

59 

format (1  HO. 20 X,*PR06RAM  TRANF* , 6X , *VERS ION* , I A ) 

— TRANF 

60 

FORMAT ( UX,*EQUAL  SPACINO  IN  RAOIAL  DIRECTION*) 

TRANF 

61 

F0RMAT(IIX.*SF(X)  was  read  in  as  data  points*) 

TRANF 

62 

RETURN 

TRANF 

63 

END 

TRANF 

64 
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SUBROUTINE  TRANG (YY,M, J) 

C 

C TR4NG  OEFInES  quantities  ASSOCIATED  WITH  THE  CLUSTERING 

c transformation  in  the  phi  direction  (SEE  statements 
c 1-6  BELOW).  the  clustering  TRANSFORMATION  IS  ASSUMED 

C IN  THE  form 

C THETA  = SG (YY.Z)  WHERE  THET ArPH I /PH  1 0 

C The  user  can  specify  the  function  SG(YY*Z) 

C The  user  must  define  as  functions  of  (YY*Z)  the  following 

c SG.  SGY,  SGZ.  S6YY,  SGYZ 

C SEE  USERS  manual  FOR  RESTRICTIONS  AND  INSTRUCTIONS 

C M IS  THE  INDEX  FOR  THE  TANGENTIAL  PLANE 

C J=1.2.3  IS  A line  index  FOR  TRANG  QUANTITIES 

C 

common  NC.MC,K,PINF,DINF,PHI0. idyaw.pi.rad 

COMMON  YZ(3) ,YPHI (3>tC(25) ,CZ(25) tCPHI (25) ,R(20.25) 

common  0(20,25) tP (20.25) »U (20.25) tV (20*25) ,W (20.25) ,ASQ (20,25) 

common  CU(A,20,25) »CUP(A,20,25) 

C END  OF  blank  common 

common  /CTRaNG/  NSGD.SGD(25) .SGYD (25) .SGYYD (25) 

1 .GYMDY.GYYMDY.GYIPDY.GYYIPDY 

2 .MCP 

common  /CBODY/  Z.BZZ.BPHPHI.BZPHI.TANCO.DELZ 
1 .PHI (25) ,B(25) ,BZ(25) .BPHI (25) .COSPHI (25) .SINPHI (25) 
common  /BLK02/  THETA, DY, TG4(3) ,TG5(3) ,TG6(3) 

1 ,X (20) ,XZ (20.2) ,XR (20,2) ,XPHI (20,2) ,Y (25) 

2 ,TFA(20.2) ,TF6(20,2).TFT(20,2) 

THIS  routine  is  version  1 OF  TRANG  CORRESPONDING  EITHER 
TO  NO  CLUSTERING,  I.E..  SG(YY,Z)»YY 
OR  THE  USER  HAS  READ  IN  THE  PhI»S 

IF  (NSGO  .EO.  0)  GO  TO  50 

the  USER  READ  IN  THE  PHI"S 

IF  (M  .NE.  MCP)  GO  TO  30 

S6Y=GY1PDY  t SGYY=GYY1P0Y  $ SGZ=SGYZ=0. 

GO  TO  2 

30  IF  (M  .NE.  0)  GO  TO  35 

SGYrGYMOY  $ SGYY*GYYMOY  S SGZ=SGYZ=0. 

GO  TO  2 

35  SG=SGD(M)  I SGY=SGYO(M)  $ SGY Y=SGYYD ( M)  S SGZ*SGYZ=0. 

GO  TO  1 

CORRESPONDS  TO  NO  CLUSTERING 
50  SG=YY  I SGY=1.  J SGZ«SGYY»SGYZiO. 

***  THE  FOLLOWING  STATEMENTS  SHOULD  APPEAR  IN  ALL  VERSIONS  *** 

1 THETA=SG 

2 YPHI (J)=I.0/(PHIO»S6Y) 

3 YZ(J)=-S6Z/S6Y 
* TG4(J)=5GY 

5 TG5 (J)=SGYY/SGY 

6 TG6 ( J) =S6YZ/SGY  --  

RETURN 
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3000 

3010 

3020 


ENTRY  TRANGW 
IVtRSON*! 

WHITE  (6.3000) 
IF  (NS60  .EO. 
IF  (NS60  .NE 


IVEHSON 
0)  WHITE 
0)  WRITE 


FORMAT) IH0.20X, •PROGRAM 


(6.3010) 

(6.3020) 

THANG«.6*.»VERStON«,14) 

FOWMATdlX. •equal  spacing  IN  TANGENTIAL  OtPECTION^) 
FORMATdlX.^TME  PHI-S  WERE  READ  IN  BY  THE  USER^) 
RETURN 
END 
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c 

c 

c 

c 

c 

c 
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SUrtBOUT INE  WALL  <M, JB, JL. JSG. tF.D 

wall  computes  preoictfo  or  corrected  7 derivatives  of 
P,  V?t  AND  S(ENTROPY)  using  characteristic  comp.  pels. 

V?  IS  VEL.  comp,  tangent  to  mall  V?=V* (BPmI/B) »u 
V?(J),  SMU).  VOMT(J).  AND  PMT(J)  ARE  WALL  values  OE 
V?.  S.  V/W,  AnO  p resp.  where  J=JR  or  JL 
JR  AND  JL  ARE  LINE  lOENT.  INDEXES  FOP  Y OIFFS. 

JSG=1,?.3  line  INDEX  FOR  TRANG  AND  BODY  PARAMETERS 

iF=i,p  linp  Index  for  tranf  parameters 

L = 0 CORRESPONDS  TO  PREDICTOR 

= 1 CORRESPONDS  TO  CORRECTOR 

This  version  of  wall  contains  several  options  for  wall  b.c. 

ISWSMO  NE  0 MEANS  MALL  ENTROPY  EXTOAPOLATION 
MODI  = 1 MEANS  SECOND  ORDER  ACCURACY 
ISWMOO  = 0 MEANS  MOO  0 FOR  MALL  B.C. 

= 3 MEANS  MOD  3 FOP  WALL  B.C. 

this  routine  contains  SPECIAL  pEATURES  AFTER  A JUMP 
IJUMPl (M)  = 0 MEANS  NO  JUMP  ON  LINE 

IJUMPKMl  NE  0 MEANS  JUMP  HAS  BEEN  CALLED  (SEE  JUMP) 

IJUMPl (M)  * 2 MEANS  NO  SECOND  ORDER  ACCURACY 

ANO  NO  ENTROPY  EXTRAP.  IF  A COMPRESSION  JUMP 
ANO  MOO  0 FOR  wall  B.C. 

COMmON/RGASS/Ax.HX.TX.RRX.GX.NTEST.NGAS.NEIRST 

COMMON  NC.MC.K,PINE.OINF.PHIO»IOYAW.PI.RAO 

COMMON  y2(3) .YPHI (3) .C (2S) .CZ<2S) .CPHI (?5) »R(20.25) 

common  0(20.25) .P (20 t25) .U (20*25) .V (20.25) .W (20 *25) *ASQ (20.25) 

common  CU(A.20.25) .CUP(4*20,25) 

***  END  OF  blank  common  ••• 

COMMON  /CMAlL/  PZ*V22*SZ*ISWM0D.M001*NJMPKT*NJMKTC*KCFL*KFAC 

1 .PZC0R(25) 

COMMON  /C0OOY/  Z.BZZ.BPHPHI.aZPMI.TANCO.DELZ 
1 .PHI (25) .0(25) *0Z(25) .BPHI (25) .COSPhI (25) .SINPHI (25) 

COMMON  /BLKfll/  CZY(3) .CPHIY(3) .V2(3) *VOWY(3) *PWY(3) .SWY(3) 

1 .UN0R(3.2) .CF (4.20.2) .06(4.20.3) .CE (4.20. 2) 

common  /0LKO2/  THETA*0Y.T64(3)  .TG5(3)  *Tr,6(3) 

1 .X(20).X7(20.2) *XR(20.2) .XPHI (20.2) .Y (25) 

2 .TF4(20*2) .TF6(20*2)*TF7(20*2) 

COMMON  /0LKO3/  ICEL*A2(3) *A3(3) *A4(3) *A5(3) .A7(3) 

1 .IJUMP(25) .IJUMPl (25) *IJMPKT(25) 
common  /BLK04/  GAMMA. GB. GO. GE.6A2.D0X.DDY.M0T2.ELIM.LCNT. ISWSMO 
1 .SW(25) .GM(20.25) 

dimension  0CGY(4) 

BETsBETA 

KM001=M0D1  S KSWMOO=ISWMOO 

BMsB(M)  S BZMaBZ(M)  J HPH0B*8PHI (M) /0M 

YPHI J. YPHI (JSG)  S YZJsYZ(JSG)  S XRWxXR(l.IF) 

UWxlKl.M)  f WWxW(l.M)  t PWxBd.M) 

VWxv(l.M)  $ OWxOd.M)  t ASOWxASO(l.M) 

VORxVW/BM  * VOW=VW/WW  S YPORxYPHI J/BM 
BBxwW*YZJ*YOHI J4VOP 
PXx (P (2.M) -PW) xODA 

oww=nw»ww  s eta=ww»»2-asqw 

COUmPx  (ETA*  ( 1 ..BPH0B*»2)  ♦ (WW»BZM)  *»2)  /ASIJW 
IE  (COUMP  .GE.  0.)  GO  TO  1001 
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call  OMPSOHt  (^HKiLL.UP^FtHtl  .CDUHO) 

DUMP 

35 

001 

RE  rs  = SQ»T ( CODMR ) 

DUMP 

3b 

4LA«=AS0W» (pETA-BZM) /ETA  t OUH*=VK*RPMOR»UW 

wall 

41 

AAX  = UNOR  (2.  TP  ) »nn*  S OSY=  ( S»(Y  ( JR) -SWY  ( JL  » > •ODV 

WALL 

4? 

VPY=(V2(JR)-V2(JL))«D0Y 

WALL 

43 

IF  (IjuhPIIM)  ,fq.  0)  GO  TO  20 

WALL 

44 

IF  (IJUMPI(m)  .pq.  2)  GO  TO  15 

WALL 

45 

IF  (L  .EO.  11  GO  TO  10 

WALL 

47 

POO 

IF  (IjO«P1(«)  ,NF.  3)  GO  TO  210 

WALL 

54 

IF  (IJHPKT(VI)  .GT.  MJMPKT)  GO  TO  230 

WALL 

55 

ifac=njmpkt 

PXWALL 

3 

GO  TO  215 

WALL 

56 

PIO 

IF  (IJMPKT(M)  .GT.  NJMKTC)  GO  TO  230 

WALL 

57 

IFAC=NJMKTC 

PXWALL 

4 

IF  (ICFL«KCFL  .>xE.  0)  GO  TO  215 

WALL 

58 

IJMokT (M) =IJMPKT (M) *KFAC  * GO  TO  10 

WALL 

59 

P15 

IJMPKT(M)=IjMPKT(M)*l  * GO  TO  10 

WALL 

60 

P30 

IJUUP1(M)=2  * IJMPKT(M)=0  $ GO  TO  15 

WALL 

61 

10 

FACrFLOAT ( IjmPkT (Ml -1 ) /FLOAT ( IF AC) 

PXWALL 

5 

PX=FAC»PX  S AAX=FAC»AAX 

PXWALL 

6 

15 

P001  = 0 * IS\AMOO  = 0 

WALL 

63 

20 

CONTINUE 

WALL 

64 

IF  (ISWMOO  .EQ.  3)  GO  TO  25 

WALL 

65 

OVO)<Y=  ( VOVY  ( JR) -VOVY  ( JL)  ) AODY  S PY=  (P«Y  ( JR) -PVY  ( JL  ) ) »DOY 

WALL 

66 

OUHM=(0ZM/BM*YPOR»DVOWY)*«W  * OUM*B0**(W/ASOW-YZ J 

WALL 

67 

PZ23= (ALAM»nUM»RZM«YZJ*YPOR*0PHO0)»PY 

WALL 

68 

1 -OWy*(0R*(A5(JSG) ♦VOW«A3(JSS) ) 

WALL 

69 

2 -ALAM»(0UMm*(TF6(1.IF)-TG6( JSG) )*Ww*VOR*TF7(l. 

IF)  ) ) 

WALL 

70 

V2Z23=  (B0»  (V2Y-UW»A3  (JSG)  ) ♦YPOR»PY/D*<> /WW 

WALL 

71 

GO  TO  50 

WALL 

72 

25 

TG5J=TG5(JSG) 

WALL 

73 

DO  40  Isl»4 

WALL 

74 

OCGY ( I ) s ( CG ( I . 1 . JR ) -CG ( I . 1 t JL ) ) *OOY 

WALL 

75 

*0 

CONTINUE 

WALL 

76 

CEUOV*  (UW/RM*TG5J*00»TF6  ( 1 , IF  ) •WVD»TF7  ( 1 » IF)  »VOP ) 

WALL 

77 

OUmi=(TG5J«yZJ.TG6(JSG) )*PV  S 0UM2= (TG5J*YPMIJ*RPHO0) *PW/0M 

WALL 

78 

QS0s*(W*»2»VW»*2*UV«»2 

WALL 

79 

OUM3rUW*OCGY (3) -OSQ»OCGY( 1 ) ♦WW*(0CGY(2) ♦OUMl ) ♦ VW» ( 0C6Y ( 4 ) *0UM2 ) 

WALL 

80 

•••  THE  EOUSTION  FOR  XKl  IS  VALID  FOR  PERFECT  GAS 

ONLY  *** 

WALL 

81 

XKli-O)T/(4SOW*G0) 

WALL 

82 

if(ntest.ge.o)go  to  60 

WALL 

83 

OX=l .025*OW 

WALL 

84 

call  RGAS(PW.OXtOUMMYt4) 

WALL 

85 

MX  1 =HX 

WALL 

86 

nX=.R75»0W 

WALL 

87 

call  RG4S(PV,0X,0UMMYt4) 

WALL 

88 

XF 1=.05»OW/ (HXl-HX) 

WALL 

89 

50 

CONTINUE 

WALL 

90 

P723=ALAM»aw» (CEl ♦2.»0CGY( 1) ♦XK1»0UM3/DW) 

WALL 

91 

1 • (BZH-ALAM) •(OCGY (2) ♦OUMl )-0CGY(3) ♦0PHOB* (OCGY (4) *OUM2) 

WALL 

92 

V2Z23*  (HPHOR*OCGY  ( 3)  -0UM4«0CGY  ( 1 ) *OCGY  14)  ♦OUM2)  /D)*W 

WALL 

93 

50 

OZ  = 4LAM*XRW4PX-(OVV1«(ALAH*AAX-VV»47(JSG) 

WALL 

94 

1 -VV*44 ( JSG) ♦0UH4*V0V/RM) *0223) /BETA 

WALL 

95 

V2Z=UV»A4 ( JSG) -VOR»BZ«-V2Z?3 

WALL 

96 

IF  (MOOl  .NF.  1)  GO  TO  90 

WALL 

97 

IF  (L  .EO.  1 ) GO  TO  80 

WALL 

98 

PXX3(E.*P(2.M)-P(3*«)-PW)»00X 

WALL 

99 

1 


AAX.X=  (a.»UNnR  (?•  IF)  -UNOB  ( 3.  IF)  ) »OOX 

WALL 

100 

PZCOR  (M)  =«L4M«(XPV)»PXX-nWW»AAXX/BeTA) 

WALL 

101 

GO  TO  BO 

WALL 

102 

«n 

PZ=PZ»P7COR (M) 

WALL 

103 

90 

IF  (M  .GT.  ISWSMO)  GO  TO  100  ' 

WALL 

1 OA 

call  RGAS(P(3.m) ,0(3.M) ,SX3.A) 

WALL 

105 

call  RGAS  (P  f 2tM)  ,0  (2tM)  .Swa.A) 

WALL 

1 05 

SZ  = P.0»SW2-';w3  % IF  (Sw2  .LT.  Sw3)  SZ  = . ( S«2»Sw  3 ) « GO  TO  125 

WALL 

107 

100 

SZ  = -BH»DSY/ii)W 

WALL 

105 

12S 

CONT INUF 

WALL 

1 09 

OZ-OZ/P<H 

WALL 

110 

m001=KM0D1  % I5l*M0D  = KSWM00 

WALL 

1 1 1 

IF  (IJUMP('«)  .FQ.  1 .AND.  L .EQ.  0)  PZ  = 0. 

WALL 

112 

BET4=8FT 

WALL 

113 

PFTijRN 

WALL 

11* 

END 

WALL 

115 

o o n o n n o 
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SUHPOUTINK  <^HOCK  (M,  JH  , JL  » JSfi  . IFC  ,L) 

SHOCK  COMPurrS  PPEDICTFO  or  corrected  r derivatives  of  C.C7. 

AND  CRHI.  JR  ANO  JL  ARE  LINE  INDEXES  FOR  T OIFFS. 

JSG=1.2.3t  line  INDEX  FOR  TRAN6  QIJANTITIFS 
IFF=I.2  LINE  INDEX  FOR  CF  ANO  CE  AREATS 
L=n  CORRESPINOS  TO  PREDICTOR 
L=1  corresponds  TO  CORRECTOR 
This  version  hAO  second  order  DIPFEPFNCIN6 

COMMON  NC .Mr ,K .PINF.OINF .PHIO. I OV Aw .PI , RAD 
common  y?(3).tphI(3).C(25).CZ(?5) tCPHI ( ?5) . R ( 20 . 25 ) 

COMMON  n(2n.2S).P(20.2S).U(20.25)*V(20.25).W(20.25) .ASO (20.25) 
common  CU(a,20.2S) .CUP(*.20.25) 

C •••  END  OF  RLANK  common 

COMMON  /CShdCK/  DCZ, OCZZ.DCPHZ, PDIF, SP0IF.0INX.D1  INF. D2INF 
1 .UZC0R(4.25) 

common  /CBODY/  Z.fiZZ.aPHPHi .BZPHl .TANCO.OFLZ 
1 .PHI (?S) .B (25) .BZ (25) .BPHI (25) .COSPMI (P5) .SINPHI (25) 
common  /BLKOI/  CZY (3) .CPHIV (3) .V2(3) .VOWYO) .PWY (3) .SWY (3) 

1 .UNOR (3.2) .CF(*,20.2).CG(A.20.3).CE(4.?0.2) 
common  /BLKO*/  GAMMA.GB.GO.GE.GA2.ODX.OOY.HOT2.ELIM.LCNT.ISWSMO.NA 
1 .SW(25) .GM(20,25) 

COMmON/RGASS/AX.HX.TX.RRX.GX.NTEST.NGAS.NFIRST 
DIMENSION  DCUZ(4) ,CUZC0R(4) 
data ( ISC1NEG=1 ) 

CM=C(M)  1 CPHIM=CPHI (M)  \ CZM»CZ(M)  % CPMIC=CPMIM/CM 

CMU1»1 ..CPHIC442  $ CMU2=CMU1*CZM«*2 
YPMIJiYPHI ( JSG)  S YZJaYZ(JSG) 

US»U(NC.M)»SPDIF  S WS=W(NC.M)«SPOIF  $ PS=P (NC.M) /P INF 

VSaV(NC.M)»SPOIF  S $OS»0(NC.M)/OINF  $ ASaS»ASO(NC.M)/POIF 

WS2*WS»WS  S ETAaWS2-ASQS 

UV»US-CPMIC»VS 

COUMPs (ETAa-Mui.UV^^a) /ASQS 

IF  (CDUMP  .Gf.  0.1  GO  TO  1001 

CALL  OMPSQRT (ShSHOCK, 1 , Z . K .M . NC .COUmP) 

1001  BETT=SQRT (CDUMP) 

ALAMi.ASOS«(RfTT»wS*UV)/ETA 
IF(L.E0.I>  ',0  TO  20 
00  10  1=1.4 
CDZCOR ( I ) =0. 

10  UZCOP ( I .M) =CF ( I .NC. IFF) »CF ( I .NC-2. IFF) -2.*CF ( I .NA . IFF ) 

GO  TO  30 
20  DO  25  1=1.4 
25  CUZCOR ( I ) =U7C0R ( 1 .M) 

30  DO  35  1=1.4 

35  0CU7 ( I ) = ( (CF I I .NC. IFF) -CF ( I ,NA . IFF ) .CUZCOR ( I ) ) *ODX 
1 ♦ (CG( I .NC. JP) -CG ( I .NC. JU ) •OOY.CE ( I.NC. IFF) ) /PINE 

0CU7 ( 1 ) =0CU7 ( 1 ) /SPDIF 

C •••  THE  EQUATION  FOP  XM  IS  VALID  FOR  PERFECTS  GAS  ONLY  ••• 

XKla-OS/(  50S»GB) 

IF(nTEST.GE.O)GO  TO  60 

PX=PINF»PS 

0*=I .025»OS.DINF 

call  OGAS(Px.0X.0UMMY.4) 

HXlaHX 

nx=.R75»DS«n INF 

call  rgas 'p < .nx .dummy .4 ) 

xKI=.05»DS/(HX1-hxi«pinf/DINF 


SHOCK 

2 

SHOCK 

3 

SHOCK 

4 

SHOCK 

5 

SHOCK 

6 

SHOCK 

7 

SHOCK 

8 

SHOCK 

9 

NEWCOM 

1 

NEWCOM 

2 

NEWCOM 

3 

NEWCOM 

4 

C03CSS 

32 

CSHOCK 

2 

CSHOCK 

3 

CBODY 

2 

CBODY 

3 

BLKOl 

2 

BLKOl 

3 

8LK04 

2 

BLK04 

3 

SHOCK 

11 

SHOCK 

12 

SHOCK 

13 

SHOCK 

14 

SMOCK 

15 

SHOCK 

16 

SHOCK 

17 

SHOCK 

18 

SHOCK 

19 

DUMP 

37 

DUMP 

38 

DUMP 

39 

DUMP 

40 

DUMP 

41 

SHOCK 

21 

SHOCK 

22 

SHOCK 

23 

SHOCK 

24 

SHOCK 

25 

SHOCK 

26 

SHOCK 

27 

SMOCK 

28 

SHOCK 

29 

SHOCK 

30 

SHOCK 

31 

SHOCK 

32 

SHOCK 

33 

SHOCK 

34 

SHOCK 

35 

SHOCK 

36 

SHOCK 

37 

SMOCK 

38 

SHOCK 

39 

SMOCK 

40 

SHOCK 

41 

SMOCK 

42 

172 
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^0  CONTINUF 

nUMl*XKl/OS  * DUM=OUMl*AUAM 

RHS=(3.«ALAm-0UM»(WS2»US»»2*VS»*2)) *0002  n)»(UV-ALAM*0UM«WS2) 

1 «OCUZ (2) /WS* (OUM»US  -1 . ) •OCUZ (3) » (CPHIC*nUM»VS) »OCUZ (A) 
VNI0MU=(0IN'(»C7>«*01  INF»  (COSPHi  ( «)  *S INPUT  («)  »CPHIC)  ) /CMU2 
I ♦0?INF»  (SINPMI  ('4)-Cn5PMI  (M)»CPHIC)/CMU? 

0S2=DS»«2  S XMNSQ= (CMU2»VNI0MU»»2) / ( AS0S»0S2) 
ouMpii  ,-i  ./O'; 

AOsnijM?*  (1.»XMnSQ*XK1*  (PS-l  . I /05;2)  / ( 1 .-XMNSO) 

DIIM33DINX-C7M»VNI0MU 

Al*PETT«VNIOMU* ( A0«0UM2) ♦0S*0UM3»A0 

OUM4=(OS-1.)/CMU2 

Cl=nUM3*AI-0UM*»CMUl 

C2= (WS-CPHIC»VN10MU/0S) •AI*CZM»CPHIC*OUM« 

0HS1*omS-(AI-DS»WS) *(VS*CPHIC*US)*YZJ/YPHIJ 

IF ( ISCINEG.FO. 1 ) GO  TO  40 
IF (C1*C10L0.6T.O. ) GO  TO  40 
WPITF  (6.1000)  CI.L.H.K 

1000  FORmAT(1HO.»IN  SUBPOUTINE  SHOCK  Cl  =*»1PF15.6.2X»»L.M»K  »»»3I5) 
call  SAVE(OUM.OUM.DUM) 

40  C10L0»C1 

ISClNEGaO 

OCZ*CZH-CPHIM«yZJ/yPHIJ 

ocpHZ« (ypMi j»(czy ( jR)-czy ( JL) )-yzj*(CPMiy (jpi-cphiy ( jd ) ) *0Dy 

OCZZ» (RHSl -C2* (OCPHZ-CPHIC»OCZ) /CM) /Cl 

RETURN 

ENO 


o n n r>  o o 
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C 


c 


c 


SUdROUTIME  INTEG(IFlAG) 

INTEG 

? 

INTFG 

3 

INTEG  INTEGRATES  TmE  WALL  PRESSURE  TO  OBTAIN  THE 

INTEG 

4 

FORCES  AND  MOMENTS  (ABOUT  ORIGIN)  AND  THFIR  Z OERIYATIVES. 

INTEG 

5 

This  routine  used  SIMPS0N»S  rule  for  phi  integration 

INTEG 

6 

AND  trapezoidal  rule  FOR  Z INTEGRATION. 

INTEG 

7 

INTEG 

5 

COMMON  NC.mc.K ,PINF .OINF.PhIO. lOYAW.PI .RAO 

NEWCOM 

1 

common  yZ(3).YPhI(3),C(25).CZ(25) .COhI ( ?5) .R ( 20 . 25 ) 

NEWCOM 

2 

common  0(20.25).P(20.2S).U(20.35)»V(20,25).W(20.25) .ASQ (20.25) 

NEWCOM 

3 

common  CU(4.20.25) .CUP(4.20.25) 

NEWCOM 

4 

• fl 

END  OF  blank  COMMON  ••• 

CD3CSS 

32 

COMMON  /CINTEG/  FN.FY.FA.mx.MY.mZ.FNZ.FYZ.FAZ.MXZ.MYZ.MZZ 

CINTEG 

2 

1 

.0Y03.MA.GY(25) 

CINTEG 

3 

real  mx.MY.mZ.MXZ.MYZ.MZZ 

CINTEG 

4 

COMMON  /CBOOY/  Z.BZZ.BPHPHI.BZPHI.TANCO.OELZ 

C800Y 

2 

1 

.PHI  (25)  .B(25) .BZ(25) .BPhI (25) .COSPhi (25) .SINPHI (25) 

CBOOY 

3 

INTEG 

10 

dimension  Sum J (6.2) .SF (6) .SFl (6) .SF2(6) .F(6) 

INTEG 

1 1 

IF  (lOYAW  .E(3.  1)  GO  TO  300 

INTEG 

12 

•••  SIMPSON»S  RULE  FOR  SYMMETRY  CASE  (PHIO=180) 

INTEG 

13 

SUMJ(1,1)»SuMJ(2.1)=SUMJ(3.1)=SUMJ(1.2)=SUMJ(2.2)=SUMJ(3.2)=0. 

INTEG 

14 

Kl  = l 

INTEG 

15 

DO  200  M=l.MA 

INTEG 

16 

BM=fl(M)  S 8PHI8=BPHI (M) /BM 

INTEG 

IT 

OUMaZ.A (P ( 1 .M) -PINF) •BM»PHIO«GY (M) 

INTEG 

18 

SiNPaSiNPMI (M)  $ COSP=COSPHI (M) 

INTEG 

19 

SF ( I ) »ouM« (cosp*ePHia«siNP) 

INTEG 

20 

SF(3)aOUM*BZ(M)  $ OUMl =SF ( 3) ‘BM 

INTEG 

21 

SF (2) »0UM1»C0SP 

INTEG 

22 

IF  (M  .nE.  2)  GO  TO  125 

INTEG 

23 

SFKDaSUMJd.u  S SFl  (2)xSUMJ(2.l)  $ SFl  (3)  *SUMJ  ( 3. 1 ) 

INTEG 

24 

125 

00  150  Isl.3 

INTEG 

25 

150 

SUMJ ( I .K 1 ) xSUMJ ( I .K 1 ) «SF ( I ) 

INTEG 

26 

Klsl-Kl 

INTFG 

27 

200 

CONTINUE 

INTEG 

25 

SF2(1)=-2.»(P(1.mC)-PInF)»8(MC)»PHIO»GY(MC> 

INTEG 

29 

SF2 (3) =-SF2 ( 1 ) »BZ (MC) 

INTFG 

30 

SF2 (2) =-SF2 (3) »fi (MC) 

INTFG 

31 

DO  250  1*1.3 

INTFG 

32 

F ( I ) =OY03» (*.»SUMJ( I .2) ♦2.»SUMJ(I.1) ) 

INTFG 

33 

IF  (K1  .EQ.  1)  GO  TO  225 

INTFG 

34 

F ( I )=F ( I) .OyOG* ( .5»SF ( I ) -SFl (I) ♦! .5*SF2(I) ) 

INTFG 

35 

GO  TO  250 

INTEG 

36 

225 

F(I)*F(I)«0y03*(SF2(I)-SF1  (I)  ) 

INTEG 

37 

250 

CONTINUE 

INTFG 

35 

GO  TO  600 

INTEG 

39 

SlMPSON"S  RULE  FOR  NON-SYMMETR IC  CASE  «PHIO=360>  *** 

INTFG 

40 

300 

DO  325  1*1.6 

INTEG 

41 

SUMJ(I,1)=0.  $ SUMJ(I.2)*0. 

INTFG 

42 

325 

CONTINUE 

INTEG 

43 

Kl*l 

INTEG 

44 

DO  500  M*1.MA 

INTEG 

45 

8M=R(M)  $ 8PMlB=0PHI (M) /BM 

INTFG 

46 

OUM= (P ( 1 .M) -PINF) •BM»PhIO»GY (M) 

INTEG 

47 

SINP=SINPHI (M)  S COSP=COSPHl (M) 

INTEG 

48 

SF ( 1 ) =OUM* (C0SP.8PMIB»SINP) 

INTEG 

49 

174 
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5F(3)=0UM*97(M)  * DUMI=SF(3»*0M 

INTEG 

50 

SF ( ?) =0UM1»C0SP  * SF (*) =0UM1»S1SP 

INTFG 

51 

SF  (SI  =OUM»  (RPMIB*C0SP-SINP) 

INTEG 

52 

SF (6) =OUM»BM«BPHI0 

INTCG 

53 

IF  (M  .ME.  PI  GO  TO  375 

INTFG 

54 

00  350  1=1.6 

INTFG 

55 

SFl  ( I ) =SUMJ ( I , 1 I $ SF2(I)=SF(I) 

INTEG 

56 

350 

COMTINUF 

INTFG 

57 

375 

DO  400  1=1.6 

INTFG 

58 

*00 

SUMJ( I ,K1 ) =SUMJ ( I ,K1 I .SF ( I) 

INTEG 

59 

Kl=3-Kl 

INTEG 

60 

500 

CONTINUE 

INTFG 

61 

00  525  1=1.6 

INTFG 

62 

F ( I )=OYD3« (4.*SUMJ< 1,21 »2.»SUMJ( I, 1 ) ) 

INTEG 

63 

IF  (K1  .£0.  1)  GO  TO  525 

INTEG 

64 

F ( I )=F( 1 1 ♦0y03» (4.*SFI ( I l-SF2(I)-2.*SF (1)1 

INTEG 

65 

525 

CONTINUE 

INTEG 

66 

INTEG 

67 

600 

F (21 =F (21 .Z*F ( 1 1 

INTEG 

68 

IF  (IDYAW  .EQ.  01  GO  TO  625 

INTEG 

69 

F(41=F(41-Z»F(5)  $ F<61=-F(6) 

INTEG 

70 

625 

IF  (IFLAG  .EQ.  01  GO  TO  700 

INTEG 

71 

HM=(Z-ZP)/2. 

INTEG 

72 

FN=FN*HH» (F ( 1 1 .FNZI 

INTEG 

73 

MY=MY»HH*(F (2) .myzi 

INTEG 

74 

FA=FA»HH*(F(3I .FAZ) 

INTEG 

75 

IF  (lOYAW  .EQ.  0)  GO  TO  700 

INTFG 

76 

MX=MX*MH»(F(41*HXZ1 

INTEG 

77 

FY=FY*HH» (F (5) .BYZ) 

INTEG 

78 

mZ=MZ»MH*(F (6) *MZZ) 

INTEG 

79 

700 

ZP  = Z 

INTEG 

80 

FNZ=F(1I  $ MYZ=F(2)  $ FAZ»F(3) 

INTEG 

81 

IF  (lOYAW  ,EO.  01  GO  TO  800’ 

INTEG 

82 

mXZ=F(41  $ FYZ=F(51  $ mZZ*F(6) 

INTEG 

83 

500 

PETUPN 

INTFG 

8* 

ENO 

INTEG 

85 
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SUHOOUTINE  INTRPL (L»X»Y»N*XX.YY) 

THIS  IS  A LINEAR  INTERPOLATION  ROUTINE.  THE  OATA  IN  THE  X AND 
XX  ARRAYS  ARE  ASSUMED  TO  BE  INCREASING  AND  NO  CHECKING  IS  DONE. 

DIMfrNSION  X (L)  .Y  (L)  .XX  (N)  . YY  (N) 

Mr? 

DO  ?on  1 = 1. N 
DO  100  JrM.L 

IF  (XX  ( n .LE.  X ( J) ) GO  TO  150 

100  continue 

J = L 
150  M=J 

YY(n:.Y(J-l).(Y(J)-Y(J-l))*(XX(n-X(J-l))/(X(J)-X<J-l)) 

300  CONTINUE 
return 

END 


INTPPL 

INTRPL 

INTRPL 

INTRPL 

INTRPL 

INTRPL 

INTRPL 

INTRPL 

INTRPL 

INTRPL 

INTPPL 

INTRPL 

INTRPL 

INTRPL 

INTRPL 

INTRPL 

INTRPL 


? 

3 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 


^oo  o o ooo 
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SUBROUTINE  RE  ZONE ( NCNEW f MCNEW t BOLD t PH  I OLD t DCUB t 

REZONE 

2 

1 DARRl .DARR2,DARR3, DARR4.no  I M.MDIM) 

REZONE 

3 

REZONE 

4 

REZONE  takes  the  initial  data  and  rezones  the  mesh 

REZONE 

5 

REZONE 

6 

common  NC.MC.K.PINF.OINF.PHIO.IOYAW.PI.RAD 

NEWCOM 

1 

COMMON  YZ (3)  ,YPHI (3) .C(35) ,CZ (35) .CPHI (25)  ,R(20,25) 

NEWCOM 

3 

common  D(30,25)  .P(  20,35 ) .U( 20.35) .V (30,25 ) ,W( 20.35 ) ,AS0 (20,25) 

NEWCOM 

3 

common  CU(a,20,25) ,CUP(4,20,35) 

NEWCOM 

4 

END  OF  blank  COMMON  *** 

CD3CSS 

33 

common  /CBODY/  z,bzz,bphphi ,BZPHI ,TANC0,0ELZ 

CBODY 

3 

1 .PHI (25) ,B (25) ,BZ (35) .BPHI (25) .COSPHI (25) .SINPHI (25) 

CBODY 

3 

common  /BLK03/  THE T A , D Y . TG4 ( 3 ) . TG5 ( 3 ) , TG6 ( 3 ) 

BLK03 

2 

1 .X(20).XZ(20.3).XR(20,3),XPHI(30,3).Y(25) 

BLK02 

3 

2 .TF4(20.2) .TF6(20.3) .TF7(30.2) 

BLK02 

4 

REZONE 

6 

DIMENSION  ROLD(NDIM.MDIM) , DCU0 ( ND I M . MO  1 M , 4 ) ,0ARR4(NDIM) 

REZONE 

9 

dimension  PhI0LD(MDIM),DARR1(MDIM).0ARR2(MDIM),DARR3(MDIM) 

REZONE 

10 

REZONE 

11 

NOTE  THAT  THE  WAY  OCUB  IS  USED  IN  THIS  ROUTINE 

REZONE 

13 

REQUIRES  That  o,p,u,v  are  consecutive  in  common 

REZONE 

13 

REZONE 

14 

;iCOLO=NC  S MCOLO=MC  S NC»NCNEW  * MC*MCNEW 

REZONE 

15 

-..c.-NC-I  $ OOYaMC-l 

REZONE 

16 

DO  ? ■>  .MCOLO 

REZONE 

17 

PHIOLL  '.■•••='PHI  (M) 

REZONE 

18 

DO  20  N=i..,'COLO 

REZONE 

19 

ROLO  (N,m)  tR  .'j 

20 

ao 

continue 

HtZONE 

31 

35 

CONTINUE 

REZONE 

32 

DO  50  Nal,NC 

REZONE 

33 

X (N) ■ (N-l ) /OOX  '■  

REZONE 

24 

50 

CONTINUE 

REZONE 

25 

DO  75  M=1,MC 

REZONE 

26 

Y(M)=(M-1)/0DY 

REZONE 

37 

CALL  TRANG(Y(M)  ,M,1)  $ PH  I ( M ) »THE  T A*Mr‘ T 0 

REZONE 

38 

COSPHI  (M)  =C0S  (PHI  (M)  ) 5 SINPHI  (M)=SIN(Ph-' :-<)  ) 

REZONE 

29 

CALL  BOOY(M) 

REZONE 

30 

75 

continue 

REZONE 

31 

call  INTRPL (MCOLD.PHIOLD.C  ,MC,PHI,0ARR1) 

REZONE 

32 

call  INTRPL (MCOLD.PHIOLD.CZ  ,MC,PHI ,DARR3) 

REZONE 

33 

CALL  INTRPL (MCOLD.PHIOLO.CPHI ,MC. PHI ,DARR3) 

REZONE 

34 

DO  BO  M*1.MC 

REZONE 

35 

C (M) =DARR1 (M) 

REZONE 

36 

CZ(M)=0ARR3(M) 

REZONE 

37 

CPHI (M) 30ARR3 (M) 

RE.70NE 

38 

80 

CONTINUE 

RE/ONE 

39 

DO  85  M=1.MC 

REZOK'E 

40 

call  TRANF(m.1,1) 

REZONE 

4 1 

85 

CONTINUE 

REZONE 

4? 

DO  235  Nal.NCOLO 

REZONE 

43 

DO  100  m=i.mcold 

REZONE 

44 

DARRI (M) =R0L0 (N.M) 

REZONE 

45 

00 

CONTINUE 

REZONE 

46 

call  INTRPL (MCOLD. PH IOLD, DARR 1 ,MC .phi .dark  2) 

REZONE 

47 

DO  125  Msl.MC 

REZONE 

48 

ROLD (N.M) =0ARR2 (M) 

REZONE 

49 
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125  continue: 

00  200  1=1,4 
00  150  1 , MCOLO 

OARR 1 (M) =OCUB (N,M, I ) 

150  CONTINUE 

CALL  INTRPL (MCOLDfPHIOLD.OARRl ,HC«PHI ,0AR9?) 
00  175  m=1.mC 


OCUR (N.M, I) =0ARR2 (M) 

175  CONTINUE 
200  CONTINUE 
225  CONTINUE 

00  300  1=1,4 

00  275  M=1,HC 

call  INTRPL(.NC0L0,R0L0( 

00  250  N»1,NC 

OCUR (N,m, I ) =0AR94 (N) 

250  CONTINUE 
275  CONTINUE 
300  CONTINUE 
RETURN 
END 


,M)  ,DCU9  n ,m,  I ) ,nc,R  ( 1 »m)  ,daRRA) 


REZONE  50 
REZONE  51 
REZONE  52 
REZONE  53 
REZONE  5A 
REZONE  55 
REZONE  56 
REZONE  57 
REZONE  58 
REZONE  59 
REZONE  60 
REZONE  61 
REZONE  62 
REZONE  63 
REZONE  6A 
REZONE  65 
REZONE  66 
REZONE  67 
REZONE  68 
REZONE  69 
REZONE  70 
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SUHPOUTINE  DGAS(PX.BX,SX.NUMX) 

crgaso  walker  temp  converted  to  RANKINE 

C0mh0N/RGASS/AX.HX,TX.RRX.GX.NTE5T,NGA5,NFIR5T 

dimension  Th (5.E00)  .NDL  I A. 1 1 ) .NOU ( A, 1 1 ) , AN ( A ) , C ( 7 ) , ANR ( 17) .HN (A) 
C0mn0N/C5ERCH/E.TH5(600) . NL . NU . NOUT . NER 

COMMON/SAVRG/Po.RO.0,n.e,FM,NDL.NDU.MIOL.TH,RTO,SQPORO.CAX,CHX 

DiMrNSION  MI0L(A,11).  SAVFO(A) 
data  IFfl  /O/ 

THE  ARRAYS  NOL  AND  NOU  MUST  BE  STOPEO  IN  ADJACENT  LOCATIONS. 


P = PX 
S = 5X 
R = RX 

NUM=NUMX 

NUMS=NUM-5 

IF(nFIRST-NGAS)10.R.10 
10  NFI05T=nGAS 

IF (nTEST) 7,19.19 

C LOAD  PERFECT  GAS  CONSTANTS. 

19  AMP(1)=RRX 
ANR(2)=GX 

ANR ( 3) =ANR ( 1 ) / ( ANR (2) -1 . ) 

ANR (A) =aNR ( 1 ) *ANR (3) 

ANR (5)=1 ./AnR(2) 

ANR'S)=ANR(a)/ANR(1) 

t .1  = l <1 J / ANR  ( 2) 

ANR  (fl)  =A9  00fl.f>0R-ANR(3)  *AL0G(  171 ,6/'.0001**ANR(?)  ) 
GO  TO  8 

C LOAD  BEAL  GAS  CONSTANTS. 

7 CONTINUE 

CALL  LOCATE  INGAS. 9) 

read  (9)  (NDL IN) ,N=1 ,09) 

NMMzNOL (89) 

read (9)  ( TH (N) ,N=1 ,NMM) ,WTMI X , ( C ( N ) , N» 1 , 7 ) 

rewind  9 
DO  115  N=1,AA 

115  MIOL  (N)  = (NDl (N) *NDU (N) ) /2 
NOUMX=NOU ( AA) 

DO  120  N=1,NDUMX 
120  TH5(N)rTH(5.N) 

F = 0. 

DO  21  N1=1,A 

NL  = NOL (N1  , 1 ) 

NU=NDU (M I . 1 ) 

NER=MI0L (N1 , 1 ) 

call  SERCH 

21  SAVFO (N1 ) =Tm ( 1 .nOUT) 

C0NC=WTmIX/28.965 
°0  = 21 16. 

P03.002A98»CONC 

RRR=1716./C0NC 

RRX=RPR 

PT0=RRD»A93.635 
SQPORO=SQRT (RO/PO) 
e=TH (NMM-2) 

f=th (Nmm-1 ) 


RGAS 

2 

RGAS 

3 

RGAS 

4 

RGAS 

5 

RGAS 

6 

RGAS 

7 

RGAS 

8 

RGAS 

9 

RGAS 

10 

RGAS 

1 1 

RGAS 

12 

RGAS 

13 

RGAS 

14 

RGAS 

15 

RGAS 

16 

RGAS 

17 

RGAS 

18 

RGAS 

19 

RGAS 

20 

RGAS 

21 

RGAS 

22 

RGAS 

23 

RGAS 

24 

RGAS 

25 

RGAS 

26 

RGAS 

27 

RGAS 

28 

RGAS 

?9 

RGAS 

30 

RGAS 

31 

RGAS 

32 

RGAS 

33 

RGAS 

34 

RGAS 

35 

RGAS 

36 

RGAS 

37 

RGAS 

38 

RGAS 

39 

RGAS 

40 

RGAS 

41 

RGAS 

42 

RGAS 

43 

RGAS 

44 

RGAS 

45 

RGAS 

46 

RGAS 

47 

RGAS 

48 

RGAS 

49 

RGAS 

50 

RGAS 

51 

RGAS 

52 

RGAS 

53 

RGAS 

54 

RGAS 

55 

RGAS 

56 

RGAS 

57 

RGAS 

58 
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n=TH (Nmm) 

RGAS 

59 

P“=?. 1632». 3*68»C0NC 

RGA9 

60 

44=a»FM 

RGA9 

61 

e«=F«FM*l . 

RGA8 

62 

CCC=8*Fm 

RGAS 

63 

RL4ST=0.0 

RGAS 

64 

RST4RT=100.0 

RGAS 

65 

Z2=RO/10.»»7 

RGAS 

66 

PR=-7.»« 

RGAS 

67 

pr=po»io.»»pr 

RGAS 

66 

Zl=PR 

RGAS 

69 

IF0=!F0*1 

RGAS 

70 

F = 0.0 

RGAS 

71 

00  ?3  Nl=l,4 

RGAS 

72 

23  BN(n1)=SAVF0(N1I 

RGAS 

73 

BN ( 1 ) iBN ( 1 ) /SQPORO 

RGAS 

74 

8N(?)=BN(2) »RTO 

RGAS 

75 

BN ( 3) *0N(3) »1 .8 

RGAS 

76 

BN(*)=0N(4)«RRR 

RGAS 

77 

»NR(RI=PP/(Z2*8N(3) ) 

RGAS 

78 

RRXsANR (9) 

RGAS 

79 

4NR(12)=9N(?)/8N<3) 

RGAS 

80 

ANR(10)  = 1.*ANR(<))/(ANR(12)-ANR(9)) 

RGAS 

81 

ANR  (HI  =ANR  (12)  /ANR  ( 10  ) 

RGAS 

82 

ANR(13X1./ANR(10) 

RGAS 

S3 

ANR(lA)aANR(12)/ANR(9) 

RGAS 

84 

ANR ( 1 A) =BN ( 4) -ANR (11) »ALOS ( Z1/22*«ANR < 10) > 

RGAS 

85 

ANR ( 1 7) =RN ( 1 ) «0N ( 1 ) *Z2/21 

RGAS 

86 

CMX»ANR(14) 

RGAS 

87 

CAXsANR(17) 

RGAS 

as 

9 IF(nTEST) 16.8*8 

RGAS 

89 

....CALCULATE  F ANO  NR,  INITIALIZE  CONTROL  INTESERS 

RGAS 

90 

16  o»Al0(5(P/R0)/2.3025851 

RGAS 

91 

tF(NUM5)A0.31.70 

RGAS 

92 

31  REA1.  = S/RRR 

RGAS 

93 

GG=(BE4L-C(l)-C(2)*P)/(C(3)4P«(CtA)*P*C(5))) 

RGAS 

94 

R=C(6)«GG«C(7)*p 

RGAS 

95 

PER=A0S( (RSTAHT-R) /R) 

RGAS 

96 

RSTaRT=R 

RGAS 

97 

IF(PER.LT.O.I)  R=RLAST 

RGAS 

98 

RLxP-8 

RGAS 

99 

CC=CCC-P 

RGAS 

100 

RH=-CC»( 1 .*AA*CC/ (8B«0B) ) /0B«.OO5 

RGAS 

101 

IF (RH.LT.-7. ) RMa-7.0 

RGAS 

102 

IF(R.LT.RH)  RaRH 

RGAS 

103 

IF (RL.GT.3.0)  RL*3.0 

RGAS 

104 

IF(pL.LT.P)  R=RL 

RGAS 

105 

NUMRaO 

RGAS 

106 

NIMX»0 

RGAS 

107 

NUHHZ5 

RGAS 

108 

NUHM9PsNUMM-9,NUM 

RGAS 

109 

N0OT*4 

RGAS 

110 

N0P  = 4 

RGAS 

111 

GO  TO  42 

RGAS 

112 

40  R*4l0G(R/R0) /2. 3025851 

RGAS 

113 

RGAS 

114 

NUMm9P*NUMH-9*NUM 

RGAS 

115 
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NUPsNUM 

RGA<; 

116 

M80T=1 

RGAS 

117 

42 

CONTINUE 

RGAS 

118 

IF  (R)  11.12.13 

RGAS 

119 

1 1 

NS=P-1 .0 

RGAS 

120 

IE(mR.LT.-7)  NR=-7 

RGAS 

121 

GO  TO  15 

RGAS 

122 

12 

NR=-I.O 

RGAS 

123 

GO  TO  IS 

RGAS 

12* 

13 

nr=p 

RGAS 

125 

IE(nR.G7.2)  NR=2 

RGAS 

126 

15 

DX=p-FL0AT (NR) 

RGAS 

127 

NR=nR»8 

RGAS 

129 

F= (p-R-R) / ( j .«R* (E*0*R) ) 

RGAS 

129 

IE(F)  158.160.160 

RGAS 

130 

158 

IF (F.GT.-l .OE-08)  F=0.0 

RGAS 

131 

160 

CONTINUE 

RGAS 

132 

IF  (NUMM-q.NUM)  22.162.22  IF(NUMM9P) 

RGAS 

133 

IF(nUMMPP)  22.162.22 

RGAS 

13* 

152 

IF (F-. 000001 ) 27.161.161 

RGAS 

135 

161 

if(fm.lt.f)  go  to  ♦♦ 

RGAS 

136 

• • • 

search  for  correct  coefficients  and  calculate  desired  properties. 

RGAS 

137 

22 

DO  17  N1=NR0T.NUP 

RGAS 

138 

nl=nol (ni .nr) 

RGAS 

139 

NU=MOU (N1 .NP) 

RGAS 

1*0 

NERsMIDL (Nl .NR) 

RGAS 

1*1 

CALL  SERCH 

RGAS 

1*2 

Y1=TH (1 .NOUT) ♦F*(TH<2.N0UT) «F* ( TH <3.N0UT ) ‘F^TH (*.NOUT ) ) ) 

RGAS 

1*3 

NL=N0L(N1.NR*1) 

RGAS 

144 

NU=N0U(N1.NR*1) 

RGAS 

1*5 

NERaM10L(Nl,NR*l) 

RGAS 

i*6 

call  SERCH 

RGAS 

1*7 

r?=TH(l .NOUT) ♦F»(TM(2.N0UT)*F*(TH(3.N0UT)*F*TH(*,N0UT) ) ) 

RGAS 

1*8 

AN(Nl)aYl«0X*(Y2-Yl) 

RGAS 

1*9 

17 

CONTINUE 

RGAS 

150 

IF(NUM5)  51,52.52 

RGAS 

151 

52 

IF(nUMMQP)  39,108.39 

RGAS 

152 

108 

PX=O0*10.**P 

RGAS 

153 

51 

GO  TO  (121. 122. 123. 12*. 12*), NUM 

R6A$ 

15* 

• • • 

.NORMALIZE  Final  QUANTITIES. 

RGAS 

155 

12* 

SX=4N (*) *RRR 

RGAS 

156 

123 

TX=*N(3)»1.R 

RGAS 

157 

122 

HX=4N(2)*RT0 

RGAS 

158 

121 

AX=4N ( 1 ) /SOPORO 

RGAS 

159 

GO  TO  109 

RGAS 

160 

• • • 

.fntpopy  intfration 

RGAS 

161 

30 

0IFF=A9S ( (REAL-AN (NUP) ) /REAL) 

RGAS 

162 

IF(OIFF-.OOOl)  37,37,38 

RGAS 

163 

NUNM9P=NUMM-9*NUM=0 

RGAS 

16* 

37 

NUmm9P=0 

RGAS 

165 

NUMM*9-NUH 

RGAS 

166 

NROT=l 

RGAS 

167 

NUP  = 3 

RGAS 

168 

AN(*)=REAL 

RGAS 

169 

RLASTsR 

RGAS 

170 

GO  TO  *2 

RGAS 

171 

38 

NUMR=NUm0»1 

RGAS 

172 
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NIM«=NIMX» 1 

IF  (Ml'tX.Ol  .P0>  GO  TO  44 
43  IF(NUM«-2)  32tfl3.84 

82  IF  (■?e4L-AN<NUP)  ) 85<37<a6 

85  Pl=o 

Sl  = »N(Nl)P) 

R=P..3 

IF(RL.LT.R)  R»RL 
P2  = P 
L = (1 

GO  TO  42 

86  R2=R 
S2=»N (NUP) 

R = rt-.3 

IF(R.LT.RH)  R=RH 
R1=R 
L = 1 

GO  TO  42 

83  IF(l)  91.90,91 

90  S2=4N(NUP) 

IFIS1.NE.S2)  R=R2-(S2-REALl/(S2-Sn*<R2-Pl) 

if(rl.lt.R)  r=rl 

GO  TO  93 

91  S1=AN(NUP) 

Ra (PEAL-Sl ) / < S2-S1 ) * (R2-R1 I *81 
IF(R.CT.RH)  RaRH 

' 93  IF(R2-R)  104,37.105 

104  NUMR=1 
R1«R2 
S1»S2 

L=0 

r IF(R2».3-RL)  210,211,211 

i 211  R2=RL 

RsRP 

GO  TO  42 
210  R2=R2«,3 
R = R2 

GO  TO  42 

105  IF(R-Rl)  106,37,42 

106  NUM8*1 
R2=R1 
S2=S1 
L = l 

IF(RH-R1»,3)  212,213,213 
, 213  R1=RH 

' RaRl 

GO  TO  42 

•i  212  RlaRl-,3 

. R»R1 

■ 60  TO  42 

84  IF (pEAL-AN(NUP) ) 87,87,88 
5.  87  R1*R 

GO  TO  91 

, 88  R2=9 

,•  GO  TO  90 

44  IF (F-. 000001 ) 27,444,444 


RGAS 

173 

RGAS 

174 

RGAS 

175 

RGAS 

176 

RGAS 

177 

RGAS 

178 

RGAS 

179 

RGAS 

180 

RGAS 

181 

RGAS 

182 

RGAS 

183 

RGAS 

184 

RGAS 

IBS 

RGAS 

186 

RGAS 

187 

RGAS 

188 

RGAS 

189 

RGAS 

190 

RGAS 

191 

RGAS 

192 

RGAS 

193 

RGAS 

194 

RGAS 

195 

RGAS 

196 

RGAS 

197 

RGAS 

198 

RGAS 

199 

RGAS 

200 

RGAS 

201 

RGAS 

202 

RGAS 

203 

RGAS 

204 

RGAS 

205 

RGAS 

206 

RGAS 

207 

RGAS 

208 

RGAS 

209 

RGAS 

210 

RGAS 

211 

RGAS 

212 

RGAS 

213 

RGAS 

214 

RGAS 

215 

RGAS 

216 

RGAS 

217 

RGAS 

213 

RGAS 

219 

RGAS 

220 

RGAS 

221 

RGAS 

222 

RGAS 

223 

RGAS 

224 

RGAS 

225 

RGAS 

226 

RGAS 

227 

RGAS 

228 

RGAS 

229 

t 

i. 

f 

1 


r 

1^2 
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• • • 4 

OUTSIDE  GAS  TAB'.ES. 

RGAS 

230 

444 

ntimes=ntimf:s*i 

RGAS 

231 

WBITE (6t 190) 

RGAS 

232 

190 

FORmAT(1H0.10X,36HOUTS10E  TABLES  IN  RGAS  ENTERING  WITH) 

RGAS 

233 

WRITE(6.191)  PX 

RGAS 

234 

191 

FORMAT! 1 1X,?HP=,E13.6) 

RGAS 

235 

IF(nUM5)  192.193.193 

RGAS 

236 

192 

CONTINUF 

RGAS 

237 

WPITE(6.194)  Rx 

RGAS 

23S 

194 

format ( 11X.2HR=E13.6) 

RGAS 

239 

GO  TO  196 

RGAS 

240 

193 

CONTINUE 

RGAS 

241 

WRITE(6.195)  SX 

RGAS 

242 

19S 

F0RmaT(11X,2HS=.E13.6) 

RGAS 

243 

196 

IF(nTIMES-IO)  109.197.197 

RGAS 

244 

197 

CONTINUE 

RGAS 

245 

WRITE (6. 198) 

RGAS 

246 

19fl 

FORmaT(20X,28MEXIT  CALLED  ON  TENTH  FAILURE) 

RGAS 

247 

GO  TO  25 

RGAS 

240 

70 

Z=2*SQRT(-1.0) 

RGAS 

249 

25 

call  exit 

RGAS 

250 

• • • 

real  gas  but  below  gas  tables. 

RGAS 

251 

27 

L38 

RGAS 

252 

P=PX 

RGAS 

253 

R=RX 

RGAS 

264 

L1=9 

RGAS 

255 

GO  TO  26 

RGAS 

256 

• • • 

.PERFECT  gas 

RGAS 

257 

a 

L=0 

RGAS 

258 

Ll  = 2 

RGAS 

259 

26 

CONTINUE 

RGAS 

260 

IF(NUM5)440.69.70 

RGAS 

261 

440 

QUOTaP/R 

RGAS 

262 

GO  TO  (65.66.67.68.69) .NUM 

RGAS 

263 

69 

EXaS-ANfl (L»9) 

RGAS 

264 

EXaEXP(EX/ANR(L*3) ) 

RGAS 

265 

Ra(P/EX)**ANR(L*5) 

RGAS 

266 

QUOTaP/R 

RGAS 

267 

GO  TO  67 

RGAS 

268 

68 

SaANR(L*8)*ANR(L*3)*(AL0G(P)-ANR(L*2)*AL0G(R) ) 

RGAS 

269 

67 

TaQUOT/ANR(L*l) 

RGAS 

270 

66 

H=QllOT»ANR  (L*6) 

RGAS 

271 

65 

LL=L*L1 

RGAS 

272 

A=S0RT(ANR(LL)»0U0T) 

RGAS 

273 

30 

AXrA 

RGAS 

274 

HXaH 

RGAS 

275 

TXaT 

RGAS 

274 

SXaS 

RGAS 

277 

RX  = R 

RGAS 

270 

109 

CONTINUE 

RGAS 

279 

RETURN 

RGAS 

280 

END 

RGAS 

201 
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SUrfDOUTINE  «»GA5 (PX,RX ,QX tMl ) 

HRGAS 

2 

n I«CNSION  NHL  (*.  1 n .Nnu  (4, 11)  <Mtr)L(4«III»TH(S,600) 

HRGAS 

3 

common /S  A VR'‘./PG.RO.P«O.E.FHtNDL»NDU.MlnL*TH,RTO«SOPO«O.CAX,CHX 

HRGAS 

4 

COmmON/PGASS/AX ,HX,TX,opX ,GX  tNTEST.NGAS 

HRGAS 

5 

COmmON/CSERCH/P . TH5 (600 ) . NL . NU» NOUT .NCR 

HRGAS 

6 

P = Ai  OG (PX/PO) /?. 3025851 

HRGAS 

7 

P=alOG (PX/PO) /2. 3025851 

HRGAS 

8 

IE(P)11.12.I3 

HRGAS 

9 

1 1 

NP=Q-i.n 

HRGAS 

10 

IF(nR.LT.-7inP=-7 

HRGAS 

11 

GO  TO  IS 

HRGAS 

12 

12 

NP=-1 . 

HRGAS 

13 

GO  TO  IS 

HRGAS 

14 

1 3 

N«»P 

HRGAS 

15 

IF  (►jP.GT.2)  NR  = 2 

HRGAS 

16 

15 

OX=p-FLOAT (NR) 

HRGAS 

17 

NR=NR«8 

HRGAS 

18 

Fr  (0_R_t))  / ( 1 .♦R»(E*0»R)  ) 

HRGAS 

19 

ENTRY  ARGAS 

HRGAS 

20 

IF (F) 158. 160. 160 

HRGAS 

21 

158 

IF(F.GT.-1.0E-08)F=0.0 

HRGAS 

22 

160 

IF (F-. 00000! ) 27.161.161 

HRGAS 

23 

161 

IF  (FM.lt. F) GO  TO  44 

HRGAS 

24 

NL=NDL (Nl *N9) 

HRGAS 

25 

NU  = NDU  (N1  .MB) 

HRGAS 

26 

NERiMIOL  (Ml  .MB) 

HRGAS 

27 

call  SERCH 

HRGAS 

28 

Y1=TH( 1 .MOOT) »F»(TM(2.M0UT) .F«(TH(3.NOUT> ♦F*TH(4.N0UT) ) ) 

HRGAS 

29 

ML*NOL (Ml .MR. 1 ) 

HRGAS 

30 

NU=n00(M1.MR*1) 

HRGAS 

31 

MEP»MI0L(NI.NB.1) 

HRGAS 

32 

call  SERCH 

HRGAS 

33 

/ 

y2sTH( 1 ,N0UT) .F»(TH(2.N0UT) .F^ITHO.NOUT) *F»TH (4.N00T ) ) ) 

HRGAS 

34 

hX=RT0» (Y1 *OX* (V2-Y1 ) ) 

HRGAS 

35 

i 

IF (N1 .E0.2) RETURN 

HRGAS 

36 

OX=wX/ (BTO®5QPORO) 

HRGAS 

37 

ox=ox»ox 

HRGAS 

38 

return 

HRGAS 

39 

27 

IF(n1.E0.1)GO  to  28 

HRGAS 

40 

hX=CMX»PX/RX 

HRGAS 

41 

RETURN 

HRGAS 

42 

28 

OX  = rAX.»PX/Rx 

HRGAS 

43 

BFTIJBN 

HRGAS 

44 

44 

WRI TE (6. 190 ) 

HRGAS 

45 

190 

format ( IHl .♦OUTSIDE  GAS  TABLES*) 

HRGAS 

46 

STOP 

HRGAS 

47 

f ' 

f 

C 

HRGAS 

48 

fe- 

t 

ir 

f ■ 

t 

* 
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SUflPOUTINE  SERCH 

COyMON/CSERCH/XtO(500) .NLtNU.NOOT.NFR 
NOUTaTOOOO 

IF(K.GE.0(NER) I NL»NER 
DO  10  I=NUtNU 
IF ( X.LT.0( I ) ) RETURN 
NOUTal 
10  CONTINUE 
RETURN 
ENtl 


SERCM  2 
SERCH  3 
SERCM  » 
SERCH  5 
SERCH  6 
SERCH  7 
SERCH  8 
SERCM  9 
SERCH  10 
SERCH  11 


noon 
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I 


SUBPOUTINE  locate (NE .NT  I LOCATE  2 

LOCATE  3 

NF  IS  THE  NUMBER  OF  THE  FILE  LOCATE  A 

NT  IS  THE  number  of  ThE  TAPE  LOCATE  5 

LOCATE  6 

REkINO  NT  LOCATE  7 

IF  (NF  .LE.  1)  GO  TO  BB9  LOCATE  8 

IF=nF-1  LOCATE  9 

no  SO  1=1. IF  LOCATE  10 

25  oFao  (NT)  DIJM  LOCATE  11 

IF  (EOF(NT))  50.25  LOCATE  12 

50  CONTINUE  LOCATE  13 

999  RETURN  LOCATE  lA 

END  LOCATE  15 


non 


t 
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SUBROUTINE  SHF  AX  ( I . NO  I M , MO  I M , WN  . UN  t VN  t WN  t PN  t ON  , CPP  . CZO  . CON  . CN  . CNO. 
1 CPhIO) 

THIS  routine  SHIFTS  Z AXES  BY  A PARALLEL  DISPLACEMENT  OF  ZAS 

COMMON  NC«MC.K,PINF.OINF.PHIO.IDYAw.PI.PAn 
COMMON  YZ  (.T)  ,YPhI  (3)  ,C  (?5>  ,CZ  (PS)  .CPHl  ( ?S  1 , R ( ZO  . ?S  ) 

COMMON  O(P0,PS),P(?0.?S),U(?0.?5)«V(?0*?5).W(20«25)tASQI20.Z5) 
COMMON  CU(4,?u,25) .CUP(A*20.?S) 

**•  END  OF  blank  common  »«* 

COMMON  /CBEnT/  ZBB (25)  , ALNS t OST . AUON »BE T A t RSN t CENUF , DEL  1 1 . OELT A 
1 iC0SBN«EuS(3,ZMAXSiPID?. TANBN* ibn.hn.thftabn 
common  /CBOOY/  Z,BZZtBPHPHI ,PZPHI .TANCO.DPLZ 
1 .PHI(25).R(?5),RZ(?S).BPHI(?5) .COSPHI (PS) tSINPHI (25) 

COMMON  /CINTEG/  FN,FY,FA.MX,MY,m/,fnZ.FYZ.FAZ.MXZ.MYZ*MZZ 
1 ,0YD3.MA,GY (25) 
real  MX,MY.mZ.MXZ.MYZ,MZZ 

COMMON  ZBLKOS/  G AMMA . GR ,60 .GE .0 AP t DOX « DDY , H0T2 , EL IM , LCNT . I SWSMO t NA 
1 ,SW(?5) ,GM(20,25) 

DIMENSION  RN(NDIM,m0IM) ,UN(N0lM,M0IM) ,vN(NOIM,MDIM) 

1 ,WN(N0IM,MDIM) ,PN(NDIM«M01M) ,DN(N0IM,mDIM) 

DIMENSION  CPP ( 1 ) ,CZO( 1 ) .CON ( 1 ) ,CN( 1) ,CN0 ( 1 ) ,CPHIO ( 1 ) 

NA=NC-1  J MA=MC-1 
GO  TO  (10,11),! 

ZAS=AMIN1 (ZmAXS.HN)  % HN=HN-ZAS 
OELII=OELII*ZAS  S GO  TO  12 
7A5=HN  » hn=0  % DELII=DELI1«7AS 
SHIfpel=ZAS» (COSBN»»P-HSN»»?)/AoQN 
OELTA=OELTA,SHIFOEL 
DO  I M=1,MC 

CPP (M) =ATAN? (C (M) »SINPHI (M) ,c (M) *C0SPH1 (M) -ZAS) 

IF  (CPP(M)  .LT.-1.E-8)  CPP (M) =CPP (M) .a.sPI 

CNO(M)  = S(3RT  (C  (M)  *«2-P.*C  (M)  ‘COSPHI  (M)  •ZAS»ZAS*ZAS) 

CPP(1)=0.  J CPP(MC)=PHI0 
CALL  INTRPL (MC.CPP.C.MC.PHI .CON) 
call  INTRPL (MC.CPP.CNO.MC.PHI ,CN) 
call  INTRPL (MC, CPP.cz, MC. phi ,CZO) 
call  INTRPL (MC, CPP, CPH I ,MC .PHI , CPHI 0) 

DO  2 M=1 ,MC 

CA=ATAN2 (CN (M) oSINPHi (m) ,CN (M) ‘COSPhI (M) .ZAS) 

CP2=SIN(CA)  $ CA=C0S(CA) 

SCR  = CA-.CPP*CPHIO  (M)  /CON  (M) 

TCR=CA«CPHIn (M) /CON (M) -CP? 

ucr=scr*cosphi (M)-tcr*sinphi;m) 

CZ(M)r:CZO(M)/UCR 

CPHI (M)=CN(M)*(SCR*SINPHI(M) ♦TCR«C0SPHI (M) ) /UCR 
S1=FPS0»SINPHI (M)**2«l . S SCA=COSPhI (M) ‘DELTA 
R ( 1 ,M)  = (SORT (SCA*SCA» ( RET A .DEL T A ) * ( PE T A-DFL T A ) ‘S 1 ) -SC  A) /SI 
R (NC.M)=CN(M) 

ROIF=(R  (NC,M)-R  (1,M))/NA 
DO  3 N=?,NA 

R(N,M)=R(1,m)»(FL0AT(N)-1.) ‘ROIF 
CONTINUE 

0ELTA=0FLTA-SHIFDEL 
DO  20  M=l,MC 
PHN=PHI (M) 

DO  20  Nrl.NC 


SHFAX 

2 

SHFAX 

3 

SHFAX 

SHFAX 

5 

SHFAX 

6 

NEWCOM 

1 

NEWCOM 

2 

NEWCOM 

3 

NEWCOM 

A 

CD3CSS 

32 

NEWCOM 

5 

CBENT 

3 

CBOOY 

2 

CBODY 

3 

CINTEG 

2 

CINTEG 

3 

CINTEG 

A 

BLKOA 

2 

BLKOA 

3 

SHFAX 

9 

SHFAX 

10 

SHFAX 

1 1 

SHFAX 

12 

SHFAX 

13 

SHFAX 

lA 

SHFAX 

15 

SHFAX 

16 

SHFAX 

17 

SHFAX 

18 

SHFAX 

19 

SHFAX 

20 

SHFAX 

21 

SHFAX 

22 

SHFAX 

23 

SHFAX 

2A 

SHFAX 

25 

SHFAX 

26 

SHFAX 

27 

SHFAX 

23 

SHFAXI 

1 

SHFAX 

30 

SHFAXI 

2 

SHFAXI 

3 

SHFAXI 

A 

SHFAXI 

5 

SHFAXI 

6 

SHFAX 

36 

SHFAX 

37 

SHFAX 

38 

SHFAX 

39 

SHFAX 

AO 

SHFAX 

A1 

SHFAX 

A2 

SHFAX 

A3 

SHFAX 

AA 

SHFAX 

A5 

SHFAX 

A6 

187 
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RNC=H (N.M) 

SHFAX 

47 

ROC  = SQHr  (W'<r®<>?*2.«RNC<»COSPHl  <M1«ZAS»Z/>S«7AS) 

SHFAX 

48 

PHU  = ATAN?(-^^C■»SI^lPnI  (M)  ,RNf«COS3Hl  (M)  *ZAS) 

SHFAX 

49 

IF  (PHO  .LT.-l.F-fl)  PHO  = PHO«2.»oi 

SHFAX 

50 

IF  (M  .FO.  PC)  PHO=PHIO 

SHFAX 

51 

SlNPHOrSIN  O'HO)  $ C05PhO  = C05 (PMO) 

SHFAXl 

7 

S1=EPSO*S1kPHO««?»1 . $ SCA=COSPhO«OFLTA 

SHFAXl 

8 

BOO  = (SORT  (5CAOSCA*  { PF.  T A40EL  T A ) •(  BETA-DELTA ) *S  1 ) -SC  A ) /S  1 

SHFAX 

53 

call  I NT  PPL (PC,PHI,C.l.PHO.COO) 

SHFAX 

54 

XUP= (ROC-POD) / (COO-BOO) 

SHFAX 

55 

YOP=PHO/PMIO 

SHFAX 

56 

XOF  F = X0P«FL0AT (NA) ♦! . 

SHFAX 

57 

J=INT (XOFF) 

SHFAX 

58 

X0FF=X0FF-FL0AT ( J) 

SHFAX 

59 

Y0FF=Y0P“FL0AT(MA)*1. 

SHFAX 

60 

L=INT (YOFF) 

SHFAX 

61 

YOFF=VOFF-FLOAT (L) 

SHFAX 

62 

IF(J.LT.NC)  go  to  25 

SHFAX 

63 

J=NA  S X0FF=1. 

SHFAX 

64 

25 

IF(J.GT.O)  GO  TO  30 

SHFAX 

65 

J=1  S XOFF=0. 

SHFAX 

66 

30 

IF(l.LT.MC)  GO  TO  35 

SHFAX 

67 

L=MA  $ Y0FF=1. 

SHFAX 

68 

35 

IF (L.GT.O)  go  TO  40 

SHFAX 

69 

L=1  S YOFF=0. 

SHFAX 

70 

40 

xy=xoff*yoff 

SHFAX 

71 

PN(N.M) =P( JiL) » ( 1 .-X0FF-Y0FF*XY) ♦P(J»1 ,L)*(XOFF-XY) *P(J,L*1 )* (YOFF 

SHFAX 

72 

1 -XY)*P(J*1,L*1)»XY 

SHFAX 

73 

ON (N.TM  =0 ( J,L ) » ( 1 .-XOFF-YOFF*XY) *D ( J*1 ,L)*(X0FF-XY) *0 ( J»L» 1 ) * (YOFF 

SHFAX 

74 

1 -XY) »0( J* 1 .L* 1 ) »XY 

SHFAX 

75 

UNNm=U ( J«L) ® ( 1 .-X0FF-Y0FF4XY) *U ( J» 1 . L ) « ( XOFF-X Y ) *U ( J.L*1 ) * (YOFF 

SHFAXl 

9 

1 -XY) »U( J*1 1 ) »XY 

SHFAX 

77 

VNNB=V ( J.L ) * ( 1 ,-XOFF-YOFF«XY) ♦ V ( J» 1 tL) • t XCFF-XY ) ♦ V ( J. L ♦ 1 ) • ( YOFF 

SHFAXl 

1 0 

1 -XY)  *V  ( J4  1 .L  ♦ 1 ) <>XY 

SHFAX 

79 

SCPrVNNM«SlNPHO-UNMM«COSPHO 

SHFAXl 

1 1 

TCP  = UNNy»S  i'Jl’nO*VNNM»COSPHO 

SHFAXl 

12 

UN(N,M)=TCP<'SlNPHl  (M) -SCRoCOSPHI  (M) 

SHFAXl 

13 

VIY(N.M)  = SCR*SlNPHl  (P)  ♦TCRoCOSPhI  (M) 

SHFAXl 

14 

20 

CONTINUE 

SHFAX 

80 

00  100  “=1«MC 

SHFAX 

81 

C (P) =CN (M) 

SHFAX 

82 

no  100  N=i<Mc 

SHFAX 

83 

P ( N.M) =PN (N.M) 

SilFAX 

84 

0 (N.M) =0N (N .M ) 

SHFAX 

85 

U (N.M)  =(JN  (N.M) 

SHFAX 

86 

V (N.M) =VN (N.M) 

SHFAX 

87 

100 

CONTINUE 

SHFAX 

92 

DELTA=0FLTA4SHIFDEL 

SHFAX 

93 

HY=my-ZAS»FA  * mz=MZ*ZAS»FY 

SHF  AX 

94 

RE  Turn 

SHFAX 

95 

ENO 

SHFAX 

96 

h- 


t 


188 


ih' 


NSWC/WOL/TR  77-28 


SUBPOUT  I NE  SHFAXD( I .NOIM ,MO IH»CV .CVP .CP .C70 . CON , CN . CNO. CPHIO ) 
DIMENSION  CV (NOIm.MOIM.4) ,CVP (NOIM.mDIm,*) 

OiMFNSION  C70(l ) .CON( 1 ) .CN ( 1) «CNO ( 1 ) »CPMlO( 1 ) *CP( 1 ) 

call  SHFAX ( T .NDlM.MDIM.CVn .1 t 1) .CV (1 » 1 .2 ) . CV ( 1 . i . 3 ) .CV ( 1 . 1 . A ) . 

1 CVP (1 .1 .1 ) .CVP( 1 , 1 .3) .CP  .C70.C0N.CN.CN0.CPHI0) 
return 
END 


..  . 
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SOB90UTINE  BOOY(M)  BODY 

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••  body 

BODY 

THIS  ROUTINE  computes  THE  RADIUS  OF  THE  BODY  AND  DERIVATIVES  ALONG  BODY 
THE  BODY  AT  A GIVEN  Z.PHI  VALUE.  THE  Z VALUE  IS  IN  COMMON  AND  THE  BODY 


PHI  VALUE  IS  PASSED  AS  AN  ARGUMENT  THROUGH  THE  PARAMETER  M.  BODY 

NOTE  THAT  7 IS  ASSUMED  TO  BE  INCREASING.  BODY 

BODY 

••••*•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••  body 

COMMON  /CBEnT/  ZBB(25) .ALNS.OST.AUON.BETA.BSN.CENUF.DELIItOELTA  NEWCOM 
I .C0SBN.EPSQ.ZMAXS.PID2.TAN8N.IBN.HN.THETABN  CBENT 

common  /CBOOY/  Z.BZZtBPHPHI.BZPHI.TANCO.DFLZ  CBOOY 

1 .PHI (25) .B(25) .BZ(25) .BPHI (25» ♦COSPHI (?S) .SINPHI (25)  CBODY 

dimension  zw (S) .thetaw (5) .zl (S) .thetal(S) .zs(5) .thetas(S)  body 

DIMENSION  ZCONEO(I) .ZCONE(8) .ACONE(P)  BODY 

NAMELIST/BOOYRO/NCONE. IRNO.IEFL.ACONE.ZCONE.ZRNO.RRND.ZFLARE.  body 

1 THETAFL.THETAGL.NW.NS.NL.IFW.IFS.IFL.ZW.ZS.ZL.THETAM. thetas  body 

2 . PHIS. THETAL.HFW.HFS.HFL.ZFW.ZFS.ZFL.FAW, FAS. FAL  BODY 

3 . ibn.thetabn.xlv.delii.cenuf  CORBI 

data ( ICONE=0)  BDDY 

data  (ZLASTaO.)  BODY 

IF  (Z  .NE.  ZLAST)  ICS^ICLsl  BODY 

PHsPHKM)  ■ body 

IF  (PH  .LE.  PI)  GO  TO  2 BODY 

PHstPI-PH  $ SCC»-1.  BODY 

SINPHI (M)s-SINPHI (M)  BODY 

GO  TO  3 BODY 

2 SCCsl.  body 

BODY 

compute  the  Radius  of  the  baseline  body  at  angle  phi»phkm)  body 

BODY 

3 IF  (Z  .GT.  ZBAR)  GO  TO  29  BODY 

IF(Z.GT.ZB8(M) ) GO  TO  25  BODY 

8M*b(M)»S(3RT<1.-(1, -Z)**2)  BODY 

BZ(M)»(l.-Z)/8M  $6PHI (m)*8ZPHIsBPHPhI«0.  BODY 

BZZ=-l./8M»(l..(l.-Z)*BZ(M)/0M)  BODY 

GO  TO  1000  body 

C •••  VERSION  3 OF  transition  REGION  FOR  RENT  CONE  *“*  BODY 

25  IF  (Z  .EQ.  ZLAST)  GO  TO  A2  BODY 

BETa»(C0S8N* (Z-1. ) »BSN) •BCN/AUON  BODY 

DELTAS (SIN8N* ( ( 1 .-Z) •COS0N-BSN) .DELI  I* (COSBN**2-BSN**2) ) ZAUON  BODY 

A2  IF  (Z  .LE.  ZEN)  GO  TO  A3  BODY 

IF  (Z  .E(3.  ZLAST)  GO  TO  A BODY 

BTMp=8BBAR*TANNS*Z  BODY 

COSPHS* (OTIl2-Z»COTOV2) /BTMP  BODY 

A IF  (COSPHI (m)  ,lT.  COSPHS)  GO  TO  A3  BODY 

R(M)s0TMP  BODY 

bz(m)=tanns  body 

BZZsBPHI (M) =8ZPHIs0PHPHIsO.  BODY 

GO  TO  1000  body 

A3  S2*SINPHI (M)**2  body 

SCRaEPS0*S2»l.  BODY 

SCAaCOSPHi (M) »OELTA  BODY 

8 (MjaBMa(S(}RT(SCA*SCA»<BETA*OELTA)* (BETA-DELTA  )*SCR)-SCA) /SCR  BODY 

TCRaSCR»BM»SCA  BODY 

8Z(M) aflZMa (HETA*0ETAP-nELTA*OELTAP-RM»(OELTAP»cnSPHI (M) .8MAEPS0P*  BODY 
1 S2/2.))/TCR  BODY 


2 

3 

A 

5 

6 
7 
B 
9 

10 

5 

3 

2 

3 

13 

lA 

15 

16 
17 

5 

20 

21 

22 

23 

2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 
3A 

35 

36 

37 

38 

39 
AO 
Al 
A2 
A3 
AA 
A5 
A6 
A7 
A8 
A9 

50 

51 

52 

53 
5A 

55 

56 

57 
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HPM I (M) =hPhim=hm«5 IMPMI (M) »(OELTA-Rm*EPSQ*COSPhI (M) ) /TC« 

BOOT 

58 

9/PhI= (RPmIm«C0SPMI (M) • (DELTA«eZ»/P«-OELT»P) -Bm*SINPHI (M) • (EPSO* 

BODY 

59 

1 rtZM»COSPM I (Ml -nFLIAP»EPSQP* (BPHiMoS INPH I (M) ♦BM»C0SPHl (M) ) ) 

0ODY 

60 

? I/TCR 

BODY 

61 

pPHPMIr  (DELTA*  ( PPM  tM«»2*C0SPHl  ( M ) /flM*BM«CO<;PH  I (M)  ♦pPM  I M*S  I MPH I ( M) 

BODY 

62 

1 ) ♦4m*EPSQ*  (9M»  (S2-C0SPH!  (M)  ‘‘a)  -3.»RPMIM»<;iimPHI  (M)  *C0SPHI  (M)  ) ) / 

BODY 

83 

2 TCP 

BODY 

64 

BZZ= (-BZM* ( p.«EPS0P*8M»S2*BZM«SCP»2.»DFLTAP»C0SPHI (m) ) ♦BETA* 

BODY 

65 

1 riPTAPP*BETAP*»2-DELTAP**2-0ELTAPP*(DELTA*BM*cr)SPMI  (M)  ) -Bm**2 

BODY 

66 

2 *EPSQPP*52/2. ) /TCP 

BODY 

67 

GO  TO  1000 

BODY 

68 

?9 

CONTINUE 

BODY 

69 

IF ( IRNO.EO.OI  GO  TO  30 

BODY 

70 

IF (Z.LT.ZPND)  go  to  30 

BODY 

71 

IPNO=0 

BODY 

72 

8PNO=OELZ‘ZPNO*TANCO 

BODY 

73 

8BAR=C0S (ACONE (NCONE)*P 1/180. > 

BODY 

74 

PCEN=8RN0-PPND»9RAR 

BODY 

75 

ZCEN=ZRN0*PRN0*SINC0 

BODY 

76 

ZBASE=ZCEN*PPN0 

BODY 

77 

30 

IF (Z.LT.ZFlaRE)  go  to  35 

BODY 

78 

IF(IEFL.EO.n)  GO  TO  33 

BODY 

79 

IEFl=0 

BODY 

80 

PC=0ELZ*TANC0*ZFLAPE 

BODY 

81 

TNFlR*TAN ( ThETAFL*PAO) /PC 

BODY 

82 

TNGlR^TAN ( ThETA6L*RA0I /PC 

BODY 

83 

PC2=PC*PC 

BODY 

84 

GZSQ=TNGLP**2  * FZSQsTNFLR**? 

BODY 

85 

33 

IF  (Z  .£Q.  ZLAST)  go  to  35 

BODY 

86 

GLZ=1 .♦ (Z-ZFUAPE) *TNGLR 

body 

87 

GSO=GLZ*GLZ  % G(3Z=GLZ*TN6L« 

BODY 

88 

FLZs  l.*(Z-ZFLAPE)*TNFLP 

BODY 

89 

fsq=flz*flz  $ffz=fuz*tnflp 

BODY 

90 

35 

IF (Z-ZCONE ( I CONE) ) 50.40 » AO 

BODY 

91 

*0 

RCOnE  = OELZ.TANCO*ZCONE ( I CONE) 

BODY 

92 

IC0NE=tC0N£.l 

BODY 

93 

TANCOsTAN (ACONE ( I CONE ) *PI/1B0. ) 

BODY 

94 

OELZ=RCONE-tancO*ZCONE ( ICONE-l ) 

BODY 

95 

IF (ZCONE( ICONE) .LE.ZWW)  GO  TO  31 

BODY 

96 

ZWU=Z'«)W 

BODY 

97 

B*(U=OELZ*ZwU*TANCO 

BODY 

98 

TANP=TAN ( ThFTAW ( 1 ) *PA0) 

BODY 

99 

ZPA=1 .EOS 

BODY 

100 

31 

IF(ZCONEdCONE)  .LE.ZLL  ) GO  TO  32 

BODY 

101 

ZUJ  = ZLL 

BODY 

102 

HLUrOELZ*ZLU*TANCO 

BODY 

103 

TANL=TAN ( Thftal ( 1 ) *PAO) 

BODY 

104 

ZLL=1 .E08 

BODY 

105 

32 

IF(ZCONEdCONE)  .LE.ZSS)  GO  TO  35 

BODY 

106 

ZSUsZSS 

BODY 

107 

ZSSsl.EOB 

BODY 

108 

BSU=DEUZ*ZSij*TanCO 

BODY 

109 

TANS  = TAN(TmETA'5(1)*RAO) 

BODY 

110 

GO  TO  35 

BODY 

111 

50 

IF ( Z.LT.ZPNO) 26.27 

BODY 

112 

27 

PR=PCEN*SQPT (PPN0**2-(Z-ZCEN) **2) 

BODY 

113 

GO  TO  100 

BODY 

114 

»!- 
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26 

IF (7.LT.ZFLARE)  GO  TO  28 

BODY 

115 

COSSQsCOSPHI (M) **a  S SINSQal .-COSSO 

BODY 

116 

COS?PaCOSSU-SlNSO  S SIN2P=2.*SINPHI (M) »COSPHI (M) 

BODY 

117 

P0=9C*SQRT(FSQ»COSSQ*6SQ*SINSQ> 

BODY 

118 

GO  TO  100 

BODY 

119 

28 

P8=DELZ*Z»TaNC0 

BODY 

120 

100 

IPTPsl 

BODY 

121 

c 

BODY 

122 

c 

COMPUTE  THE  niSTANCE  TO  THE  SIDE-CUT  PLANE 

BODY 

123 

c 

BODY 

124 

IF(IS-l)  I40.110tl20 

BODY 

125 

no 

IF(Z.LT.ZSdS)  )GO  TO  UO 

BODY 

126 

IS=IS^1 

BODY 

127 

120 

IF(7.LT.ZS<IS))G0  to  130 

body 

128 

8SU=BSU* ( ZS ( 1 S ) -ZSU) *TANS 

BODY 

129 

ZSU=ZS(IS) 

BODY 

130 

TANSaTAN ( thetas < IS) •RAO)  $IS=IS»1 

BODY 

131 

IF(IS.NE.3J  go  to  120 

body 

132 

IFdPS.EQ.O)  GO  TO  120 

BODY 

133 

BFSIaBSU  S BFSFaBSU»TANFS*ZFS  S ZFS=ZFS«ZSU 

BODY 

134 

ZFSIaZSU 

BODY 

135 

GO  TO  120 

BODY 

136 

130 

IF(AaS(PH-PHlS)-PI02.GT.-l.E-05)  GO  TO  lAO 

BODY 

137 

RS= ( 8SU» < Z-ZSU) ‘TANS) /COS (PHIS-ph) 

BODY 

138 

IF<RS.GE.RB)G0  to  140 

BDDY 

139 

IPTP»a  S RR*flS 

BODY 

140 

c 

BODY 

141 

c 

COMPUTE  THE  DISTANCE  TO  THE  LEE-CUT  PLANE 

BODY 

142 

c 

BODY 

143 

lAO 

IFdL-l)180,150.160 

BODY 

144 

150 

IF(Z.LT.ZL<1) )G0  TO  180 

BODY 

145 

IL*IL*1 

BODY 

146 

160 

IF(Z.LT.ZLdL)  ) GO  TO  170 

BODY 

147 

eLU*eLU«<ZL(IL)-ZLU)*TANL  SZLUaZLdL)  $TANL*TAN ITHETAL ( IL ) *»AO) 

BODY 

148 

IL=IL»1 

BODY 

149 

IF(IL.NE.3)  go  to  160 

BODY 

150 

IF(IFL.EQ.O)  go  to  160 

BODY 

151 

BFLIsBLU  S BFLF*8LU«TANFL»ZFL  J ZFl=ZFL*ZLU 

BODY 

152 

ZFLIaZLU 

BODY 

153 

GO  TO  160 

BODY 

154 

170 

IF(PH.LT.PI02»1.E-05)  go  TO  180 

BODY 

155 

RL=-(0LU* (Z-ZLU) »TANL) /COSPHI (M) 

BODY 

156 

IF(RL.GE.RB)  goto  180 

BODY 

157 

IPTR=3  SRRaRL 

BODY 

158 

c 

BODY 

159 

c 

COMPUTE  THE  distance  TO  THE  WIND-CUT  PLANE 

BODY 

160 

c 

BODY 

161 

180 

IF(IW-l)300,190t200 

BODY 

162 

190 

IF(Z.LT.ZWd)  )GO  TO  300 

BODY 

163 

IW*IW*1 

BODY 

164 

200 

IF(Z.LT.ZWdW)  )GO  TO  210 

BODY 

165 

BWUaBWU*  <ZW ( IW) -ZWU) *TANW 

BODY 

166 

ZWU*ZW<IW)  $TANW»TAN(THETAW(IW)»RAD)  1iIWaIW»l 

BODY 

167 

IF(IW.NE.3)  go  to  200 

BODY 

168 

IF(IFW.EO.O)  GO  TO  200 

BODY 

169 

BFWIsBWU  $ BFWF«BWU»TANFW*ZFW  % ZFW»ZFH*ZWU 

BODY 

170 

ZFWIaZWU 

BODY 

171 

if' 
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GO  TO  200 

210  IF (PH.GT.PI02-1 .e-05)  GOTO  300 
RWx(BWU* (Z-7WU) »TANW1 /COSPHI (M( 

IFCPx.GE.RB)  go  to  300 
IPTP=4  SRH=RW 

300  B(M)xR0 

ITPR  NOW  CONTAINS  A POINTER  INDICATING  WHICH  OF  THE  ABOVE  COMPUTED 

distances  is  minimal. 

IF  IPTR=1  THEN  THE  MINIMAL  DISTANCE  IS  TO  THE  BASELINE  BODY. 

IF  IPTRx?  THEN  THE  MINIMAL  DISTANCE  IS  TO  THE  SIDE-CUT  PLANE 

IF  IPTR*3  THEN  THE  MINIMAL  DISTANCE  IS  TD  THE  LEE-CUT  PLANE 

IF  IPTRxa  then  the  MINIMAL  DISTANCE  IS  TO  THE  WIND-CUT  PLANE 

THE  ROUTINE  THEN  TRANSFERS  TO  THE  APPROPRIATE  SECTION  OF  THF  CODE 

FOR  COMPUTATION  OF  DERIVATIVES. 

GO  TO  (R00<400.s00t600l »IPTR 
SIDE  CUT 

check  for  flap  and  COMPUTE  QUANTITIES  NEEDED  TO  CALCULATE  THE 

DERIVATIVES. 

400  IF(IFS*IS.LE.2)  GO  TO  460 
IF(ICS.EQ.O)  60  TO  430 
ICS=0 

RS*RS»COS(PH-PHlS) 

PHIFS=ATAN(hFS/RS) 

IF(Z.6T.ZFS)410«420 

410  RSFxBFSF 

PHITS«ATAN<HFS/RSF) 

TANFS«0 
GO  TO  425 

420  RSF38FSI*(Z-ZFSI)«TANFS 
PHITSsATAN (hFS/RSF) 

425  IF (PSF.GT.RS)  GO  TO  430 
IFSsO  I GO  TO  460 

430  IF(A8S(PH-PHIS) .GE.PHIFSI  GO  TO  460 
IF(40S(PM-PHIS) .GT.PHITSI  GO  TO  450 
C0SU»C0S(PH-PHISI 
TANU=TAN(PH-PHIS) 

8(M)xRfl=RSF/C0SU 
8Z(M)=TANFS/C0SU 
GO  TO  800 

450  SINU*SIN(PH-PHIS)  $COSU=COS(PH-PHIS) 

8 (M) =0M=ABS (HFS/SINU) 

GO  TO  700 

460  COSlJxCOS(PM-PHIS) 

TANU»SIN(PH-PHIS) /COSU 
BZ(M)aTANS/COSU 
GO  TO  800 

LEE  CUT 

CHECK  FOR  FLAP  AND  COMPUTE  QUANTITIES  NEEOFD  TO  CALCULATE  THE 

DERIVATIVES. 


500  IF ( IFL*IL.LF.2)  GO  TO  570 
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IF(ICL.EO.O)  GO  TO  5*0 
1CL  = 0 

»L=-BL»COSPhI (Ml 
PMIfl»*TAN(mFL/«L) 

IF(z.LE.ZFLI  go  to  530 
PLF=0FLF 

PHItL*»T*N (hFL/PLF) 

TANFL»0 
GO  TO  535 

530  WLF  = aFLI»(Z-ZFLn»T*NFL 
PMITL*ATAN(MFL/RLF) 

535  IF (9LF.GT.RL)  GO  TO  5A0 
1Fl=0 
GO  TO  570 

5A0  lF(4aS(PI-PH).6E.PMlFL)  GO  TO  570 
IF ( aBS(PI-PH) .GT.PHITL)  GO  TO  560 
C0S(J«C0SPMI  (M) 

TANU»SINPM1 (MI/COSU 
0(M)sRBa-RLF/COSU 
BZ(M)»-TANFL/C0SU 
GO  TO  800 
560  SlNU»SINPMI (Ml 
COSU»COSPMI (Ml 
R(M)«BMaHFL/SINU 
GO  TO  700 

570  0Z(MI«-TANL/COSPH1 (M» 

T*NU»SIMPHI (M) /COSPHI <M) 

GO  TO  800 

WIND  Cut 

check  for  flap  ANO  compute  QUANTITIES  NEEDED  TO  CALCULATE  ThE 
OEPIVATIVES. 

600  IF ( lFW*tM.LE.2l  GO  TO  710 
IF  (Z  .EQ.  7LAST)  GO  TO  630 

PHIF»(aATAN(HFW/R«l 
IF(Z.LE.ZFW1  GO  TO  620 
RwF=0FKF 

pHITW»ATAN(rtFW/flWF) 

TANFK»0 
GO  TO  625 

620  RKFaBFWI*(Z-ZF«(I)*TANF8 
PM1TW«ATAN (mFW/RMF) 

625  IF (PKF.GT.RR1  GO  TO  630 
IFk=0 
GO  TO  710 

630  IF(A0S(PM1 .GE.PHIFW)  GO  TO  710 
IF (4BS(PHI .GT.PHITKI  GO  TO  650 
COSU*COSPHI (M) 

TANU»SINPhI (M) /COSU 
BZ(M)»  TANFK/COSU 
0 (Ml »RBwfl«F/COSPHl (Ml 
GO  TO  800 
650  SiNUaSINPMl (M) 

COSU=COSPHl (Ml 
0(M1 a8M«MFK/SINU 


BOOT 

229 

BOOT 

230 

BOOT 

231 

BOOT 

232 

BODY 

233 

BODY 

23* 

BODY 

235 

BODY 

236 

BODY 

237 

BODY 

238 

BODY 

239 

BODY 

2*0 

BODY 

2*1 

BODY 

2*2 

BODY 

2*3 

BODY 

2** 

BODY 

2*5 

BODY 

2*6 

BODY 

2*7 

BODY 

2*8 

BODY 

2*9 

BODY 

250 

BODY 

251 

BODY 

252 

BODY 

253 

BODY 

25* 

BODY 

255 

BODY 

256 

BODY 

257 

BODY 

256 

BODY 

259 

BODY 

260 

BODY 

261 

BODY 

262 

BODY 

263 

BODY 

26* 

BODY 

265 

BODY 

266 

BODY 

267 

BODY 

268 

BODY 

269 

BODY 

270 

BODY 

271 

BODY 

272 

BODY 

273 

BODY 

27* 

BODY 

275 

BODY 

276 

BODY 

277 

BODY 

278 

BODY 

279 

BODY 

280 

BODY 

281 

BODY 

282 

BODY 

283 

BODY 

28* 

BODY 

205 
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C CO^’PUTE  OERIvATIVFS  ON  THE  SIDE  OF  Twe  F4LP.  BODY 

C BODY 

700  BZ<m)=8ZZ=H7PHI=0.  BODY 

0PMI (M) *-HM»C0SU/SINU  body 

8PHPHI=SM* (?./ (SINU«SINU) -1. ) BODY 

GO  TO  1000  BODY 

710  8Z(M)*T#N«/rOSPHI (M)  BODY 

TANII  = S1NPHI  (M) /COSPHI  (M)  BODY 

BODY 

COMPUTE  THE  DEPIVATIVES  ON  CUT  OP  TOP  OF  FLAP.  BODY 

BODY 

800  8PHI (M) =TANU«P8  BODY 

8ZZ=0.  BODY 

BZPhI*8Z(H) »TANU  BODY 

BPHPMI=RB*a.«BPHI (Ml »TANU  BODY 

GO  TO  1000  BODY 

BODY 

COMPUTE  THE  derivatives  ON  BASELINE  BODY.  BODY 

BODY 

900  IF (Z.LE.ZRNO)  GO  TO  90S  BODY 

BZ=R8-«CEN  body 

B2m=BZ(M)=(7CEN-Z)/RZ  body 

bzz=-(i.*bzm*07M)/rz  body 

BZPHI=BPHPhi=bPhI (Ml =0.  BODY 

return  BODY 

905  IF(Z.LT.ZFLARE»  GO  TO  910  BODY 

bzm=bz(mixrc2«(ffz*cosso*ggz»sinso)/bb  body 

BZZ=(RC2«(FZSQ«C0SS0»GZS0*SINS0J-BZM»BZH) /R8  BODY 

0P=8PH1 (M)=.5»RC2*SIN2P*(GS0-FS0I/RR  BODY 

BPHPHIx (RC2* (6SQ-FS0I •C0S2P-8P*8P) /RB  BODY 

BZPHI*  <RC2*SIN2P* (GGZ-FFZ) -BP«BZM» /R8  BODY 

60  TO  1000  BODY 

910  8Z(M!sTANC0  $ RZPH I »BPMPHI *BZZ*8PHI (M) *0.  BODY 

1000  SINPhI (m1sScC*SINPM! (Ml  body 

8PhI (M) *SCC»0PhI (M)  $ 8ZPHI*SCC»BZPHI  BODY 

ZLASr=Z  BODY 

RETURN  BODY 

ENTRY  HCOYP  BODY 

••••»•••••••••••.••••••••••••••••••••••••••••••••••••••••••••••••••••••  body 

BODY 

This  part  of  he  routine  reads  in  data  defining  THE  BODY  BODY 

AND  COMPUTES  VARIOUS  parameters.  BODY 

BODY 

body 

BODY 

NCONE  DETERMINES  THE  NUMBER  OF  CONIC  SECTIONS  BODY 

IRNO  determines  whether  THE  END  OF  THE  BODY  IS  ROUNDED.  BODY 

(IRNflxl  IF  rounded  and  0 TOHERWISEI  BODY 

iefl  determines  whether  There  is  an  elliptic  flare  on  the  body 

ENO  OF  THE  BODY.  (IEFL*1  IF  THERE  IS  AN  ELLIPTIC  FLARE  BODY 

ANO  IS  0 otherwise.)  BODY 

next,  for  each  conic  section,  input  the  angle  of  the  cone  and  The  body 
Z value  where  it  ENOS.  BODY 

IF  The  body  is  rounded,  input  THE  Z LOCATION  OF  THE  BEGINNING  OF  BODY 
the  round  ANO  The  radius  of  the  pounding.  body 

IF  The  afterbody  IS  FLARED.  INPUT  THE  Z LOCATION  OF  THE  BEGINNING  0 BODY 
THE  FLARE  ANO  THE  ANGLE  OF  EXPANSION  OF  THE  PHI*0  AND  180  DEGREE  BODY 


286 

287 

288 

289 

290 

291 

292 

293 
29A 

295 

296 

297 

298 

299 

300 

301 

302 

303 
30A 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 
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AXIS  ANO  the  angle  OF  EXPANSION  FO  THE  PHl=<»0  DEGREE  AXIS.  BODY 

BODY 

NW  IS  THF  number  OF  SECTION  OF  THE  WIND  CUT  BODY 

NS  IS  the  number  of  section  of  the  side  CUT  BODY 

NL  IS  The  number  of  section  of  the  lee  cur  body 

NL  IS  the  number  of  section  OF  THE  LEE  CUT  BODY 

IFN  IS  ONE  IF  there  is  A WIND  FLAP  0 OTHERWISE  BODY 

IFS  IS  one  if  there  is  a SIDE  FLAP  0 OTHERWISE  BODY 

IFL  IS  One  if  there  is  a lee  flap  0 OTHERwISF  body 

BODY 

note  that  all  Flaps  begin  on  the  second  part  of  the  corresponding  body 
CUT.  body 

BODY 

NEXT,  FOR  EACH  CUT  SECTION  INPUT  THE  Z LOCATION  OF  THE  BEGINNING  BODY 
OF  That  section  and  the  angle  of  that  section  body 

body 

finally,  for  each  existing  FLAP  INPUT  THE  HALF-WIDTH  OF  THE  FLAP,  BODY 
the  length  of  The  flap  along  the  Z axis,  and  the  FLAP  angle.  body 

BODY 

PI=A.«ATAN(1.)  * RAD=PI/iaO.  BODY 

NC0nE»1  % ZRNO»ZFLARE=I ,E0fl  BODY 

NW»NS»NL«IFWMlFS»IFLaIEFL«IRNO*0$IW=lL*IS»0  BODY 

CENUF».S  BODY 

HN>0.  % IBNsC'  BODY 

oeliimo.  body 

PI02aPI/2.  BODY 

PHIS»90.  BODY 

faw«fas«fal*o.  body 

reao(S.booyro)  body 

PI02«PI/2.  body 

tpi«pi«pi  body 

ZCOnEOU)>0.  body 

ZCONe(NCONE»»l.EOa  BODY 

1030  CONE*ACONEIl)  BODY 

ALNS*CONE  COPPl 

SINCO=SIN (CONEaRAD)  S COSCOsCOS (COnE*RAO»  BODY 

IFUBN.EO.I)  Go  to  10*0  body 

io*s  continue  body 

ZBARal.-SiNCO  t BBARaCOSCO  I GO  TO  1050  BODY 

C •••  COMPUTE  parameters  FOR  BENT  NOSE  •**  BODY 

•10*0  alns»alns*rao  * thetarn»theta8n»rao  body 

BCNsCOS(ALNS)  % 8SN»SIN ( ALNS ) BODY 

cosbn=cos(theta0N)  s sin8n*sin(Theta8N)  body 

TANBNaSIN0N/COS8N  BODY 

TANNSaBSN/BCN  S SNO2»SIN(ThETA0N/2.;  $ CNO?aCOS(THETA8N/2.)  BODY 

DUM1=CN02**?-8SN**2  S 0UM2=XLV»CN02/0UM1  BODY 

OUM3al.-COSRN/'8SN  S OUM*aCN02*  ( COSRN-BSN**?)  5 nuMB»BCN»BSN»SN02  BODY 
ZEN30UM3*0UM2* (OUM4-DUM5I  $ ZBAP»0Um3«DUM2* (0UM**DUM5 » BODY 

0UMS*(OUM2*(CNO2*8CN**2-OUM5n»TANNS  S aBBAP«DUM6-ZEN*TANNS  BODY 

B8AR*BBBAR»ZBAR*TANNS  S COTOV2*CN02/SN02  body 

OTIl2*DUM6*ZEN»COTOV2  * MN»S INBN* (0UM2*CN02-l ,/BSN) -DELI I BODY 

AUQn» (COSBN*BCNI **2- <BSN»SINBN1 »*2  BODY 

epso*sinbn*»2/auqn  s epsqp»epsopp»o.  body 

BET*P»BCN»0SN/AUON  body 

BETaPP=0.  S OELTAP»-SIN0N»COS8N/AUQN  body 

oeltapp»o.  body 

DST»ZEN-.5  S ZMAXS»CENUF*TANBN  BODY 


3*3 

3** 

3*5 

3*6 

3*7 

3*8 

3*9 

350 

351 
358 
353 
35* 

355 

356 
35  7 

358 

359 

360 

361 

362 

363 
36* 

365 

366 

367 
36B 

369 

370 

371 

372 

373 
37* 

375 

376 
6 

377 

378 

379 

380 

381 

382 

383 
38* 

385 

386 

387 

388 

389 

390 

391 

392 

393 
39* 

395 

396 

397 

398 
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lOSO 

CONTINUE 

BODY 

399 

TANCO=SINCO/COSCO 

BODY 

400 

OELTsBBAW-TANCO»78AH 

BODY 

401 

ZL (NL»1 ) =1 .FOM 

BODY 

402 

ZS (NS»1 ) =1 .EOa 

BODY 

403 

7W (NW* 1 ) = 1 .EOR 

BODY 

404 

IE(nW.NE.O)  IW=1 

BODY 

405 

IE(nS.NE.O)  IS=1 

BODY 

40fe 

IF(nL.NE.O)  IL=1 

BODY 

407 

PMIS*PMIS*«4D 

BODY 

408 

TANFW=TAN (FAW*RAO) 

BODY 

409 

TANESaTAN(FAS»OAOI 

BODY 

410 

TANFL*TAN (FAL*«A0) 

BODY 

411 

1640 

ZLL=ZL(l)  S ZWW=Zy<l)  i ZSS=ZS(1) 

BODY 

412 

RETURN 

BODY 

413 

aooo 

format ( 15) 

BODY 

414 

2001 

FORMAT (2F10.4) 

BODY 

415 

2002 

FORmATOFIO.4) 

BODY 

416 

entry  aooYR 

BODY 

417 

BODY 

419 

BODY 

419 

This  part  of  The  routine  prints  out  information 

ABOUT  The  body. 

BODY 

420 

BODY 

421 

BODY 

422 

IVERSON«3 

BODY 

423 

WRITE  (6»3000)  IVERSON 

BODY 

424 

IF(IBN.EQ.I)  go  to  3020 

BODY 

425 

WRITE (6. 3005) ZSARtBBAR 

BODY 

426 

GO  TO  3021 

BODY 

427 

3080 

WRITE (6,31001  ALNS/RAD.TMETABN/RAD. ZEN 

BODY 

42B 

3100 

FOfiMAT(llX.»FORE  BODY  IS  A SPHERICALLY  BLUNTED 

cone  of 

*,F10.4, 

BODY 

*29 

1 * DEGREES  BENT  AT  AN  ANGLE  OF  *,F 1 0 .4/ 1 1 X , *ThE  BENT 

CONE  ENOS  AT 

BODY 

430 

2 *,F15.7) 

BODY 

431 

WRITE (6,31 101 Z8AR,B8AR 

BODY 

432 

3110 

E0RmaT( 11X,»THE  body  is  SMOOTHED  To  THE  AFT  BODY  BEGINNING  AT», 

BODY 

433 

1 £15. 7, • and  having  RADIUS  •«£ 15 . 7/ 1 1 X , * THE 

AFT  BODY 

IS  A MULTIP 

BODY 

A3A 

2LE  conic  with  •) 

BODY 

435 

3021 

CONTINUE 

BODY 

436 

WRITE (6,3010) (ACONE( I) ,ZCON£(I 1 ,Isl,NC0NE) 

BODY 

437 

IE ( iRNO.EQ. 1 1 WRITE (6,3025)  RRNO,ZRND 

BODY 

439 

IF(IEFL.EQ.I)  WRITE(6,3030)  ZFL ARE , THET aFL , THETAGL 

BODY 

439 

IF(NW.EO.O)  go  to  3060 

BODY 

440 

WRITE (6,3035) 

BODY 

441 

WRITE (6,3040) (THE TAW (I),ZW(I),Isl,NW) 

BODY 

442 

IF ( IFW.EQ.l ) WRITE ( 6,3050) HEW, ZFW,E AW 

BODY 

443 

3060 

IF(NS.EQ.O)  go  to  3090 

BODY 

444 

PHI5=PHIS/RaO 

BODY 

445 

WRITE(6,3070)  PHIS 

BODY 

446 

PHIS=PHIS*RAO 

BODY 

447 

WRITE (6,3040) (THETAS( I) ,ZS( I) ,1=1 ,N5) 

BODY 

440 

IF(IFS.E(3.1)  WRITE(6»3050)  HFS,ZFS,FAS 

BODY 

449 

3090 

if(nl.E(3.0)  return 

BODY 

450 

WRITE (6,30951 

BODY 

451 

WRITE (6,3040) (THETAL( I) ,ZL ( I ) » I = 1 ,NL ) 

BODY 

452 

IF(IFL.EQ.l)  WRITE(6  ,3050)  HFL,ZFL,FAL 

BODY 

453 

return 

BODY 

454 

3000 

format ( 1 HO , POX , *88008 AM  BODY*, 6X , •VERS ION* , 1 4 ) 

BODY 

455 

197 
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3005  format ( 1 IX. •BOOr  IS  spherically  BLUHTEO  and  sphere  ENOS  AT  Z=*.  BODY  A56 

1 E15.7,2X.»  with  B»*.E15.7/nX,»  AFT  BODY  IS  A MULTIPLE  CONIC  WITH  BODY  457 

2 *)  BODY  458 

3010  FORMAT(I6X.»ANGLE*«FI0.4.»  UP  TO  »«F10.4)  BODY  459 

3025  F0RMAT(UX.»THE  REAR  OF  THE  BOOT  IS  ROUNOEO  WITH  RAO IUS».F 1 0 .4/  BODY  460 

1 11X.4  THE  R0UN0IN6  BEGINS  AT*.  FI0.4)  BODY  461 

3030  FORmAT(11X.»THERE  IS  AN  ELLIPTIC  FLARE  BEGINNING  AT*.  F10.4/  BODY  462 

1 11X.*THE  wind-lee  axis  EXPANDS  WITH  ANGLE*.  F10.4.*  AND  THE  SIDE  BODY  463 

2 AXIS  expands  with  angle*.  Flo. 4 > BODY  464 

3035  F0RmAT(11X.*THERE  IS  A WIND  CUT  OF*»  BODY  465 

3040  FORMATI16X.*ANGLE*tF10.4.*  BEGINNING  AT*.F10.4)  BODY  466 

3050  FORMAT(20X.*WITH  A FLAP  OF  HALF-WI0TH*,F10.4.*  LENGTH  ALONG  Z-AXIS  BODY  467 

1 *.F10.4.*  AT*.F10.4.*  DEGREES*)  BODY  468 

3070  FORmaT(11X.*THERE  IS  A SIDE  CUT  CENTERED  AT  LON6I TUOE*.F 1 0 . 4 . * OF  BODY  469 

1 *)  BODY  470 

3095  FORMATdiX.*  THERE  IS  A LEE  CUT  OF*)  BODY  471 

END  BODY  472 


non 
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SUBROUTINE  FIELD  FIELD 

field 

field  prints  the  data  at  some  fix  7 FIELD 

FIELD 

COMMON  NC.MCfK.PINF.OINF.PHIO.  IOYA\,,PI.PAn  NEWCOM 

COMMON  Y2 (3) ,YPHI (31 .C (25) .CZ<25) .CPHI (25) .R (20fZ5)  NEWCOm 

COMMON  0(20.25)  .P  (20  t2S)  .U<20.25)  »V  (20.25)  , i.  ( 20 . 25 ) .ASO  (20 . 25)  NEWCOm 

COMMON  CU(4,20.25) .CUP(4.20,25)  NEWCOM 

C *•*  END  OF  blank  common  CD3CSS 

common  /CBEMT/  ZB8(25) .ALNS.OST.AUON.BFTA.PSN.CENUF.DELII.DELTA  NEWCOM 

1 ,C0SBN,EpSQ.ZMAXS.PI02.TAN8N.IBN.HN,TMETABN  CBENT 

COMMON  /CBOOY/  Z.BZZ.BPHPHI.BZPmI.TANCO.DELZ  CBOOY 

1 ,PHI (25) .B(25) .eZ(25) .0PHI (25) .COSPhI (25) .SInPHI (25)  CBOOY 

common  /COUT/  ACH.ATTA, yaw. ZEND, XINOEF.VINF.SINF  COUT 

1 .NTAR(3ET,TAR6ETZ(100)  COUT 

C FIELD 

C0MM0N/R6ASS/AX,HX,TX.RRX,GX.NTEST,MGAS,NFIRST  field 

WRITE  (6.3000)  ACH.ATTA, YAW  FIELD 

DO  100  Mal.MC  FIELD 

M=PHl(M)/RAO  $ WRITE  (6,3010)  M.M  FIELD 

WRITE(6.3800)  HN  FIELD 

WRITE  (6.3600)  K.Z.B(M) ,BZ(M) .BPHI (M) ,C (M) ,CZ(M) .CPHI (M)  FIELD 

WRITE  (6,3700)  FIELD 

DO  50  Nal.NC  FIELD 

L*NC-N»1  FIELD 

IF  ((P(L.M)  .GT.  0.)  .AND.  (O(L.M)  .GT.  0.))  60  TO  10  FIELD 

AMACH«SX«XIN0EF  FIELD 

60  TO  25  FIELD 

10  CONTINUE  FIELD 

call  rgas(P(l.m) ,o(l.m) ,sx,a)  field 

AMACH«SORT (U(L.M) ••2*V (L.M) **2*W (L.M) **2) /AX  FIELD 

25  continue  field 

GAMC*l./(l.-P(L,M)/(MX*0(L,Mn ) FIELD 

WRITE  (6.3A00)  R(L.M) ,W(L.M) ,U(L.M) ,V(L.M) ,P(L.M) ,0(L.M) , FIELD 

ISX.AMACH.GAmC  field 

50  continue  field 

100  continue  field 

RETURN  field 

3000  FORMAT (IMI.WMACM  NO  IS». 1PE15.7,5X.  FIELD 

1 WANGLE  OF  attack  I S* . 1 PE  1 5.7.5X , *ANGLE  OF  SIDESLIP  IS*,1PE15.7)  FIELD 
3010  FORM»T(1MO,*PLANE*. 16. 3X. WANGLE  ISw,F7.2,w  oEGREESw)  FIELD 

3100  FORMATdMw.SOX.wwINOWARO  PLANEw)  FIELD 

3200  FORMAT(1H*.50X,WLEEWARO  PLANEW)  FIELD 

3600  FORMATdM  .1P9E16.6)  FIELD 

3600  FORMATdHO.wSTATIONW.IS.WX.wZ  ISw, 1 PEI 5. 7, 6X , wq  ISw , IPE 1 5 . 7 , 6X , FIELD 

1 W0Z  ISW,lPE15.7.6X.wqpMI  I Sw, IPEl 5 . 7 . / . FIELD 

2 17X.WC  ISW,1PE15.7,6X.WCZ  Is» , IPF 1 5 . 7 . 6X . wCPhI  ISW.1PE15.7)  FIELD 

3700  FORMAT(1HO.BX.1HP,13X.IHW.13X.I-(0.13X,  1HV,13X,1HP,12X.3MRH0.  FIELD 

1 13X,1HS.13X,1MM.UX,5MGAMMA)  FIELD 

3000  FORMATdlX.wTHE  AXIS  IS  SHIFTED  UPw.FlO.A.w  UNITSW)  FIELD 

END  FIELD 
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SUHOOUTINE  out 

OUT  OUTPUTS  The  WALL  PRESSURES  ANO  THE  FORCES  AND  MOMENTS. 

This  routine  is  executed  after  calculations  are  completed. 

common  NC«MC.K .PINF.OINFfPhlOt IOTAW.PI.RAO 
common  YZ ( 3) .YPmI ( 3) ,C(25) .C2(25» .CPMI ( ?5 I . P ( 20 . 25 ) 
common  0(20,25).P(20.25)»U(20.25).V(20,2S).»((20.25).ASQ(20.25) 
common  CU>a.20.25) .CUP(4*20.25» 

C **•  end  of  blank  common  ••• 

common  /COUT/  ACH.ATTA, yam. ZENO. XIN0EF.VINF.S1NF 
1 .NTARGET.TARGETZ ( 100) 
common  /CaOOY/  Z.aZZ.BPHPHI.aZPMI.TANCO.OELZ 
1 .PHI (25) .a (25) .BZ (25) .SPHI (25) .COSPHl (25) .SINPHI (25) 
common  /CINTEG/  FN.FY.FA.MX.MY.MZ.FNZ.FYZ.FaZ.MXZ.MYZ.MZZ 
1 .0Y03.MA.GY (25) 

real  MX.MY.mZ.MXZ.MYZ.mZZ 

c 

COmmON/RGASS/AX.MX.TX.RRX.GX.NTEST.NGAS 

dimension  ZS (2) .FNS (2) .FYS (2) .FAS (2) .MXS(2) ,MYS(2) .MZS(2) 
real  MXS.MYS.MZS 
dimension  PR(1) 
equivalence  (PB.B) 

namelist  /outro/  zref.aref.zc.zo.ipcio 

IF  (ZREF  .EO.  0.)  ZREF»ZENO»ZO 
IF  (AREF  .6T.  0.)  GO  TO  10 

2*ZEND  $ call  aODYU)  t R8»0£L2*TANCO*ZEND  t APEFaPI«R9**2 
10  REWIND  16  S NPTS*0  $ Ml=l  S MCMXaMC  S M1P1A«M1*14 
C0NT1».5*0InF»vINF**2/PINF 
2S  NPTS»NPTS*1 
30  MCSaMC 

READ  (16)  NC.MC.ATTA.YAW.ACH.GAMMA.PINF.OINF.PHIO.K.Z 
A .n6AS.NTEST.RRX 

1 . EN. F Y. FA, MX. MY. M2.FNZ«FYZ.FAZ.MXZ»MYZ»mZZ 

2 , (PHI (M) .nUM.DUM.OUM.Msl .MC) 

3 . (OUM.OUm.DUM.OUM.PR (M) .0UM.m=1 ,mC) 

IF  (ECF(16>)  200,50 

SO  m2=mIN0 (MC,«1P14)  * IF  (M2  .lT.  Ml)  GO  TO  30 
IF  (MC  .NE,  MCS)  NPTS»1 
IF  (MOO(NPTS-l .38)  .NE,  0)  GO  TO  75 
WRITE  (6.3000)  ACH.ATTA.YAW.ZO 
3000  FOHMAT(1H1.10X.»MACH  no  =».F8.3.5X 

1 .‘ANGLE  OF  ATTACK  a* .F8 . 3 . 5X .‘ANGLE  OF  SIDESLIP  =‘.F8.3 

2 .5X.‘Z0  =‘,F8.3) 

IF  (IPCIO  .FO.  O)  WRITE  (6.3020) 

3020  FORmAT(1H0,35X,‘S  URFACE  PRESSURE  RATI  0‘) 
IF  (IPCIO  ,nE.  0)  WRITE  (6.3025) 

3025  format ( IHO . 30X . “S  URFACE  PRESSURE  ‘. 

1 ‘COEFFICIENT*) 

DO  60  MaMl.MZ 
60  PHI (M) aPHI (M) /RAO 

WRITE  (6.3030)  (PHI (M) .M»M1 .M2) 

3030  FORMATdH  . SX  . 4HZ*Z0 . 15F8 . 1 ) 

WRITE  (6.3040) 

3040  FORMATdH  ) 

75  DO  62  M=M1.m2 
62  P0(M)aPB(M)/PINF 
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mZ=MZS( n > ♦ (MZS ( 121 -MZS ( 1 1 ) 1 •CONTI 

OUT 

105 

CN=xkO»FN  $ CA=XK0»FA  t CY=XK0»FY 

OUT 

1 06 

CMX  = XKI»(MX.ZC»FY)  * CMY*XK1*(my-ZC»FN)  % CMZ  = XK1«MZ.’ 

OUT 

107 

XCPPsXINOEF  $ XCPY=XIN0EF 

OUT 

108 

IF  (CN  .NE.  O.)  XCPP=ZC/ZREF»Cmy/CN*ZO/ZRFF 

OUT 

109 

IF  (CY  .NE.  0.)  XCPY=ZC/ZREF-CMX/CY*Z0/?9FF 

OUT 

110 

CY=-CY  * CMX=-CMX  t CMY»-CMY  $ CMZ=-CMZ 

OUT 

111 

ZZ=ZT«Z0 

OUT 

U2 

WPITE  (6t3330l  ZZ.CN.CA.CY.CMX.CMY.CMZ.XCPP.XCPY 

OUT 

113 

GO  TO  300 

OUT 

114 

325 

NPTS=0  * REWIND  18 

OUT 

115 

350 

npts=npts«i 

OUT 

116 

REAO  (18)  Z.FN.FY,FA.MX.MY.MZ.FNZ»FYZ*FAZ.MXZ.MYZ*MZZ 

OUT 

117 

IF  (EOF(18)l  425.375 

OUT 

118 

375 

IF  (MOD(NPTS-l,38)  .NE.  0)  60  TO  400 

AERO 

2 

WRITE  (6.32001 

OUT 

120 

WRITE  (6.3340) 

OUT 

121 

WRITE  (6.3350) 

OUT 

122 

400 

CNZ=XKO»FNZ  % CAZ»XK0»FAZ  % CYZ=XK0»FYZ 

OUT 

123 

CNXZ=XK1»(MXZ*ZC»FYZ)  i CMYZ=XK1*(MYZ-2C»FNZ)  * CMZZ=XK1*MZZ 

OUT 

124 

CYZ=-CYZ  % CMXZ*-CMXZ  « CMYZ*-CMYZ  $ CM2Z=-CWZZ 

OUT 

125 

zz=z*zo 

OUT 

126 

WRITE  (6.3360)  ZZ.CNZ.CAZ.CYZ.CNXZ.CMYZ.CMZZ 

OUT 

127 

GO  TO  350 

OUT 

128 

425 

RETURN 

OUT 

129 

entry  OUTR 

OUT 

130 

* OUT 

131 

OUT 

132 

this  part  of  the  ROUTINE  READS  IN  DATA  USED  BY  OUT 

OUT 

133 

OUT 

134 

* OUT 

135 

OUT 

136 

zref  is  the  reference  length 

OUT 

137 

aref  is  the  reference  area 

OUT 

138 

; IS  THE  z VALUE  THAT  MOMENT  COEFFICIENTS  ARE  TAKEN 

ABOUT 

OUT 

1 39 

ZO  IS  THE  OFFSET  DISTANCE  FROM  BEGINNING  OF  BODY 

OUT 

l40 

IPCIO  = 0 MEANS  PRINT  SURFACE  PRESSURE  RATIO 

OUT 

141 

= 1 MEANS  PRINT  SURFACE  PRESSURE  COEFFICIENT 

OUT 

142 

OUT 

143 

ZREF«AREF*0.  $ ZC*0.  % Z0=0.  $ IPCIO»0 

OUT 

read  (5.0UTR0) 

OUT 

145 

RETURN 

OUT 

146 

3200 

format ( IHl .36X.*A  EROOYNAMIC  DAT  A*) 

OUT 

147 

3210 

FORmAT(1H0.30X.*F  REE  STREAM  CONOITI 

0 N S^) 

OUT 

148 

32^0 

FORmAT(1H  .IOhmACH  no.  =.1PE15.6.3X.6X.17HANGLE  OF  ATTACK  =. 

OUT 

149 

1 IPE15.6.3X.19HANGLE  OF  SIDESLIP  =.1PE15.6) 

OUT 

150 

3230 

FORmAT(1M  .4X.6HVINF  = . IPE 15.6 . 3X . 23HTOTAL  ANGLE  OF  ATTACK  =. 

OUT 

151 

1 1PEI5.6.3X.2X.17HAER0  ROLL  ANGLE  =.lPElS.b) 

OUT 

152 

3240 

FORMATdH  .4X.6HPINF  a.  1PE15.6. 3X  . 1 7X  . 6H0  INF  =. 

OUT 

153 

1 IPE15.6.3X.13X.6HSINF  =.1PEI5.6) 

OUT 

154 

3250 

FO'mATIIH  .•perfect  gas  (GAMMA  ••. IPE 15 .6. • > • ) 

OUT 

155 

3260 

FORMATdH  .•REAL  GAS  (GAS  NUMBER  IS^.I3.^)^) 

OUT 

156 

3270 

FORmAT(1M0.32X.^R  eference  ouantitie 

S^) 

OUT 

157 

3280 

FORMATdH  .•REFERENCE  LENGTH  IS^. IPEl 5.6 . 7X . •REFERENCE 

: AREA  IS^. 

OUT 

158 

1 1PE15.6.7X.^Z0  IS^.1PE15.6) 

OUT 

159 

3290 

FORmaT(1H0.19X,^A  EROOYNAMIC  COEFFIC 

I E N T S^ 

OUT 

160 

1 • AT  TARGETED  Z LOCATION  S^) 

OUT 

IM 
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zz=z*zo 

IF  (IPCIO  .FQ.  1»  GO  TO  100 
write  (6.3050)  ZZ. (P8 (M) .M=M1 »M2> 

3050  FORmATUH  .F9.3. 15F8.3) 

GO  TO  135 
100  DO  lIO  M=Ml,M2 
110  P8 (M) = (PB (M) -1 .) /CONTI 

WRITE  (6.3055)  ZZ . ( PB ( M ) . N=Ml .M3 ) 

3055  FORmAT(1H  . F9. 3 . 1 5F8 .4 ) 

135  IF  (Ml  ,6T.  1)  GO  TO  35 
MCMx*MAX0 (MC.MCMX) 

WRITE (18)  Z.FN.FY.FA.MX.MY.MZ.FNZ.FYZ.FAZ.MXZ.MYZ.MZZ 
GO  TO  35 

300  MlaMl«15  $ IF  (Ml  .GT.  MCMX)  GO  TO  350 
M1P14zm1*14  S NPTS=0  $ rewind  16 


GO  TO  35 

350  XK0i3./ (DINF*VINF*V INF*AREF ) S XKl=XKO/ZRFF 
ATTAR=ATTA»RA0  * YAWR=YAW»RAO 
ALPT»ACOS(COS(YAWR)*COS(  ATTAR)  ) /RAO 

PMIc=XINOEF  S if  (ATTA.NE.O.)  PHIC=ATAN(-TAN<YAWR) /SIN(ATTAfi) ) /RAO 

WRITE  (6.3300) 


WRITE  (6.3310) 
WRITE  (6.3330) 
WRITE  (6.3330) 


ACM.ATTA.YAW 
WINF.ALPT.PHIC 
WRITE  (6.3340)  PINF.DINF.SINF 
IF  (N6AS  .LE.  0)  WRITE  (6.3250)  GAMMA 
IF  (NGAS  .GT.  0)  WRITE  (6.3360)  NGAS 
WRITE  (6.3370) 

WRITE  (6.3280)  ZREF.AREF.ZO 
WRITE  (6.3290) 

WRITE  (6.3300)  ZC 
WRITE  (6.3330) 

IF  (NTaRGET  .EO.  0)  GO  TO  265 
DO  360  ITaRGETsI. NTARGET 
IF  (TARGETZ(ITARGET)  .GE.  Z)  GO  TO  362 
360  continue 
GO  TO  265 

262  NTARGET=ITARGET-1 

265  IF  (Z  ,GE.  ZENO)  GO  TO  270 

NTARGET=NTARGET»1  $ TARGETZ (NTARGET) =Z 
370  nTARGET»NTAPGET.1  S TARGETZ (NTARGET) sZEND 
11=2  S 12=1  $ ITARGET=1 

REAO^US?  ZS(I2) .FNS(I3) .FYS(I2) .FAS ( 12) .MXS ( 12 ) .HYS ( 12) .MZS(I2) 

RlAD^nl)‘zi{l2?.Flil!l3).FYS(I2).FAS(I3).MXS(I3).MYS(I2).MZS(I2) 
IF  (E0F(18))  325.300 
300  IF  (ITARGET  .GT.  NTARGET)  GO  TO  275 

IF  (ZS(I2)  .LT.  TAR6ETZ ( ITARGET) ) GO  TO  275 
ZT«TARGETZ( ITARGET) 

ITARGET=ITARGET.1 

C0NT1*(ZT-ZS(I1)  )/(ZS(I2)-ZS(ID) 

FN3FNS( 11) ♦ (FNS(I2)-FNS ( U ) ) ‘CONTI 
FY=FYS  ( 1 1 ) ♦ (FYS  ( 12)  -FYS  (ID)  ‘CONTI 
FA=FAS(I1) ♦ (FAS ( 12) -FAS (ID ) ‘CONTI 
MXiMXS  ( 1 1 ) ♦ (MXS  ( 12)  -MXS  (ID)  ‘CONTI 
MYaMYS(Il)«(MYS(I2)-NYS(n) ) ‘CONTI 


OUT 

48 

OUT 

49 

OUT 

50 

OUT 

51 

OUT 

53 

OUT 

53 

OUT 

54 

OUT 

55 

OUT 

56 

OUT 

57 

OUT 

58 

OUT 

59 

OUT 

60 

OUT 

61 

OUT 

62 

OUT 

63 

OUT 

64 

OUT 

65 

OUT 

66 

OUT 

67 

OUT 

68 

OUT 

69 

OUT 

70 

OUT 

71 

OUT 

73 

OUT 

73 

OUT 

74 

OUT 

75 

OUT 

76 

OUT 

77 

OUT 

78 

OUT 

79 

OUT 

80 

OUT 

8! 

OUT 

82 

OUT 

83 

OUT 

84 

CORPl 

9 

OUT 

86 

OUT 

87 

OUT 

88 

OUT 

89 

OUT 

90 

OUT 

91 

OUT 

93 

OUT 

93 

OUT 

94 

OUT 

95 

OUT 

96 

OUT 

97 

OUT 

98 

OUT 

99 

OUT 

100 

OUT 

101 

OUT 

102 

OUT 

103 

OUT 

104 

*?• 

t 

( 

> 202 


r 


NSWC/WOL/TR  77-28 


3300 

FORmATUH  tOX.lSX.lSHFORCE  COEFFIC 1ENT5 . 1 ?X  , 

OUT 

162 

1 ?X,29HM0MENT  COEFFICIENTS  ABOUT  Z = , IPF 1 5 . 6 t 7X . 

OUT 

163 

2 19HCENTERS  OF  PRESSURE) 

OUT 

164 

3320 

format (IH  t5X<AHZ*ZOilOX«2HCN>3X«10X«2HCA«3XtlOXt2HCYf 3Xt 

OUT 

165 

1 9X.3HCMN,3X,9Xt3HCMM,3X«9X«3HCML.3X,RX<4HXCPPt 3X.8X.4HXCPT) 

OUT 

166 

3330 

FORMATUH  .F9.3UP8E15.5I 

OUT 

167 

3340 

format UH0.28X,»Z  DERIVATIVES  OF  FORCE  AND  MOMENT  COEFFICIENTS*) 

OUT 

168 

3350 

format ( IH  .5X.*Z*Z0».9X.*CNZ».13X.«CAZ*.13X,*CTZ*. 12X.«CMNZ*.12X. 

OUT 

169 

1 *CMMZ».12X.*CMLZ») 

OUT 

170 

3360 

FORMATUH  .F9.3. 1P6EI6.5) 

OUT 

171 

END 

OUT 
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SUBPOUTINE  SAVE (EX.ENRUN.RAPO)  SAVE 

SAVE 

SAVE  PRIMTS  OUT  THE  FIELD  DATA  FOR  THE  LAST  lERRPR  STEPS.  SAVF 

IF  THE  PROBRAH  BOMBS  BECAUSE  OF  AN  ERROR  CONDITION.  SAVF 

also  the  wall  pressures,  forces  and  moments  ape  printed.  SAVF 

SAVF 

common  NC.mc.K.PINF.OINF.PMIO. IDYAW.Pl.RAO  NEWCOM 

common  YZ (3) .YPHI (3) ,C(25I .CZ(25) tCPHl (25) ,R(20.aS)  NEWCOM 

common  0(20.25)  .P(  20. 25)  .U(20.25)  . V ( 20 .25)  . W ( 20 . 25 ) .AS(J  (20.25)  NEWCOM 

COMMON  CU(4.20.25) .CUP(*.20.25)  NEWCOM 

C END  OF  PLANK  COMMON  **•  CD3CSS 

common  /CSAvE/  IERRPR.mAS  csave 

common  /CBOOY/  Z.BZZ.BPhPHI.BZPHI.TaNCO.DFLZ  CBODY 

1 .PHI (25) .R(25) .BZ (25) .8PHI (25) .COSPHI (25) .SINPHI (25)  CBODY 

C SAVE 

dimension  ex(17)  save 

ENDFILE  16  SAVE 

IF  (lERRPfl  .LE.  0)  GO  TO  75  SAVE 

DO  25  IpI.IERPPR  save 

25  backspace  16  SAVE 

backspace  16  SAVE 

DO  50  Ixl.IERRPR  SAVE 

read  (16)  NC.MC.ATTA. YAW. ACM. GAMMA. PINE. DINF.PHIO.K.Z  SAVE 

A .NGAS.NTEST.flRX  SAVE 

1 .FN.FY.FA.mx.MY.MZ.FNZ.FYZ.FAZ.MXZ.MYZ.MZZ  SAVE 

2 . (PHI (M) ,C(M) «CZ(M) .CPHI (M) .M«1.MC)  SAVE 

3 . ( (R(N.M) ,U(N.M) .V(N«M) .W(N.M) tP(N.H) .0 (N.M) .M>1 .MC) .N>1 .NO  SAVE 

DO  40  M-l.MAS  SAVE 

40  call  booy(M)  save 

SO  CALL  FIELD  SAVF 

75  CALL  OUT  SAVE 

STOP  SAVE 

END  SAVE 
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SUBROUTINE  TRANFO 

TRANFO  defines  quantities  needed  by  subroutine 
TRANF  when  the  user  reads  in  The  SF(X,Y,7)  data  points 

common  /CTRANF/  NSFD.SFOOO)  .SFXD(20)  »SFXXO(20) 

read  (5.2000)  (SFO(N) .N*l .NSFO) 

00  FORMAT(5F10.0) 

NSFDMI=NSFD-1 

0X=I./FL0AT(NSFDM1) 

TWODX»I./(2.*OX)  t 0XSQ»1./0X*»2 
DO  50  N*2fNSFDMl 

SFXn (N) = (SFn (N*n -SFD (N-1 ) ) *T«OOX 
50  SFXX0(N)=(SF0(N*n-2.«SF0(N)*SF0<N-l) ) ‘OXSO 

SFXXD  IS  ASSUMED  LINEAR  ON  (0.20X)  AND  (1-20X.1) 

SFXX0(l)a2.«SFXX0(2)-SFXX0(3) 
SFXxD<NSFD)a2.»SFXXD(NSF0Ml)-SFXX0(NSF0-2) 
SFX0<n*SrX0(2)-.5*0X*(SFXXD(l) *SFXXD(2) ) 

SFXD(NSFO)aSFXO(NSFOMl)».5»OX*<SFXXD(NSFD) ♦SFXXDINSFOMl ) ) 

WRITE  (6.3300) 

3300  format (1H1.*X.*N«.15X.«SF*»17X.*SFX*»15X»*SFXX*) 

DO  125  N»1.NSFD 

125  WRITE  (6.3A00)  N.SFO (N) .SFXO (N) .SFXXO (N) 

3400  FORMATIIH  t 15. 1R4E20.6I 
RETURN 
END 


TRAnFO 

2 

TRANFO 

3 

TRANFD 

4 

TRAnFO 

5 

TRANFO 

6 

NEWCOM 

a 

TRAnFO 

9 

TRAnFO 

10 

TRANFO 

n 

TRANFD 

12 

TRANFO 

13 

TRANFD 

14 

TRANFO 

15 

TRANFO 

16 

TRANFO 

17 

TRANFO 

18 

TRANFO 

19 

TRANFO 

20 

TRANFO 

21 

TRANFO 

22 

TRAnFO 

23 

TRANFD 

24 

TRANFO 

25 

TRANFD 

26 

TRANFD 

27 

TRANFD 

28 

TRANFD 

29 

TRANFD 

30 

TRANFO 

31 
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SU8P0UTINE  THANGO 

TRANGO 

2 

c 

TRANGO 

3 

c 

T8AN60  DEFINES  QUANTITIES  NEEDED  RY  SUflBDUTINE 

TRANGD 

* 

c 

tbang  when  the  user  reads  in  The  phi  values 

TRANGO 

5 

c 

TRANGO 

6 

COMMON  NC«MC,K  .PINE  .OINF.PHIO*  IDYAvnPI  ,9AD 

NEWCOM 

1 

common  YZ ( 3) .YPHI (3) ,C (25) .CZ<25) .CPU I ( 25) . R t 20 . 25 ) 

NEWCOM 

2 

common  0(20.25) .P( 20.25) tU( 20.25) .V (20.25) .W( 20.25) .ASO( 20.25) 

NEWCOM 

3 

COMMON  CU(*.20.25) .CUP(*.20.25) 

NEWCOM 

* 

c 

»•  END  OF  RUANX  common  ••• 

CD3CSS 

32 

COMMON  /CTRANG/  NSG0.SG0(25) .SGYD(25).SGYY0(25) 

NEWCOM 

6 

1 .GYMDY.GYYMDY.GYIPOY.GYYIPOY 

CTRANG 

3 

2 .MCP 

NEWCOM 

7 

c 

TRANGO 

9 

read  (5.2000)  (SGD(M) .M=l.NSGO) 

TRANGD 

10 

2000 

FORmaT(SFIO.O) 

TRANGD 

11 

NSGDM1=NSGD-1 

TRANGO 

12 

DY=1 ./FLOAT (NSGDMl ) 

TRANGD 

13 

TWOOY=1./(2.*OY)  % OYSQ=1./OY**2 

TRANGO 

1* 

DO  25  M=l,NSGO 

TRANGD 

15 

25 

SGO  (M)  *S6D  ( M ) /SGO  (NSGD) 

TRANGO 

16 

DO  50  M=2. NSGDMl 

TRANGD 

17 

SGYO (M) = (SGO (M. 1 ) -SGD (M-1 ) ) •TVOOV 

TRANGD 

10 

50 

SGYYO(M)  a (SGO(M*l  )-2.»SG0  (M)  .SGOIM-l)  ) *OYS(5 

TRANGO 

19 

IF  (PHIO  .LE.  2.»PI-l.E-6)  GO  TO  75 

TRANGD 

20 

C 

TRANGO 

21 

' 

C 

NOTE  THAT  SGD ( Y. 1 ) aSGO ( Y ) * 1 FOR  NON-SYMMETRIC  PROBLEM  (PH10*360) 

TRANGD 

22 

C 

TRANGO 

23 

SGYO  < 1 ) aSG YD ( NSGD ) ■ ( SGO  < 2 ) -SGO ( NSGO-1 ) ♦ 1 . > *TWOOY 

TRANGO 

2* 

SGYyD  ( 1 ) aSOYYO  (NSGO)  a (SGO  ( 2)  -2,*SGO  ( 1 ) wSGO  (NSGD-1 ) -1 . ) ‘OVS)} 

TRANGO 

25 

60  TO  100 

TRANGD 

26 

c 

TRANGO 

27 

c 

NOTE  THaT  FOR  SYMMETRIC  PROBLEM  (PMlOalBO) 

TRANGD 

20 

\ 

c 

SGYYD  IS  ASSUMED  LINEAR  ON  (-0Y.2DY)  AND  (l-20Y,l*0Y) 

TRANGO 

29 

* 

c 

TRANGD 

30 

75 

SGYyD( 1 )=2.*SGYYD(2)-SGYY0(3) 

TRANGO 

31 

SGYYD (NSGD) a2.»S6YY0 (NSGOMl )-SGYY0{NS6D-2) 

TRANGO 

32 

GYYM0Yr2,*SGYY0( 1 )-SGYY0(2) 

TRANGD 

33 

GYYlP0Ya2.»SGYY0(NSG0)-SGVY0 (NSGDMl ) 

TRANGO 

3* 

SGYO  ( 1 ) aSGYn  (2)  -.5*0Y*(SGYY0(  1 ) ) 

TRANGO 

35 

SGYD(NSG0)*SGY0 (NSGOMl ) ♦ . 5*0Y* ( SGYYO (NSGD) .SGYYD (NSGDMl ) ) 

TRANGO 

36 

GYMDYaSGYO (2) -2.*0Y»SGYY0 ( 1 ) 

TRANGO 

37 

GY  IPO YaSGYO  (NSGOMl ) .2.*0Y*SGYV0  (NSGD) 

TRANGO 

38 

100 

WRITE  (6.3300) 

TRANGO 

39 

3300 

FORMAT ( IHl .4x.«m*,15X.*PHI».18X.*SG*.17X.*SGY*.16X.*SGYY*) 

TRANGO 

*0 

MaO  t WRITE  (6.3350)  M , GYMOY .6YYM0Y 

TRANGO 

*1 

3350 

FORMATdH  .I5.40X.1P3E20.6) 

TRANGO 

*2 

PHInD=PHlO/RAO 

TRANGO 

*3 

00  125  mbI.nSGO 

TRANGO 

** 

PMlMaSGO(M)*PMIOO 

TRANGO 

*5 

r 

125 

WRITE  (6.3*00)  M,PHIM.SG0(M).SGY0(M).SGYY0(M) 

TRANGO 

*6 

'* 

3*00 

FORMATdH  .I5.1PAE20.6) 

TRANGO 

*7 

f 

* 

MaNSGO.l  S WRITE  (6.3350)  M.GYl pOY.GYVIPOY 

TRANGD 

*8 

RETURN 

TRANGO 

*9 

END 

TRANGD 

50 
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SUBROUTINE  f;)MPSORT<NAME*t^NT«Z*K*M*N*VALUE) 

C 

c NAME  IS  N»«e  OF  THf  ROUTINE 

c KNT  IS  the  number  from  which  name  was  called 

c ? IS  THE  Z value 

c K IS  THE  Station  no. 

c M IS  the  Plane  no. 

c N IS  THE  Radial  point  no. 

c value  is  The  argument  of  sort  root 

c 

WRITE  (G*30n0)  NAME  *KNT»  VALUE«Z**<»m,N 
3000  FORMAT ( IHl .WIN  ROUTINE  ‘.AlO.*  AT  CALL  N0.».I3,?X. 

1 •NEGATIVE  SORT  ROOT  OF».IPE15.6» 

2 • FOR  Z.K.M.N*. IPEIS. 6*315) 
call  save (OUM.OUM.OUM) 

STOP 

ENO 


OMPSQRT  2 
OmPSQRT  3 
DmPSORT  4 
OMPSQRT  5 
OMPSQRT  6 
OmPSQRT  7 
OMPSQRT  a 
OMPSQRT  9 
OMPSQRT  10 
DMPSORT  11 
OMPSQRT  12 
OMPSQRT  13 
OmPSQRT  14 
OmPSQRT  15 
OMPSQRT  15 
OMPSQRT  17 
OMPSQRT  IB 


207 


PRECEDINO  PA3E  BLAlBC-nOT  FlI 


NSWC/WOL/TR  77-28 


DISTRIBUTION 


Commander 

Naval  Sea  Systems  Command 
Headquarters 
Department  of  the  Navy 
Washington,  D.C.  20360 
Chief  Technical  Analyst 
SEA  05121 
SEA  033 
SEA  031 
SEA  09G32 
SEA  035 

Commander 

Naval  Air  Systems  Command 
Headquarters 
Department  of  the  Navy 
Washington,  D.C.  20360 
AIR  03B 
AIR  03C 
AIR  320 
AIR  320C 
AIR  310 
AIR  50174 

Office  of  Naval  Research 
800  N.  Quincy  Street 
Arlington,  Virginia  22217 
ONR  100 

M.  Cooper,  430B 
Dr.  Leila  Bram,  432 

Commander 

David  Taylor  Naval  Ship  Research 
and  Development  Center 
Bethesda,  Maryland  20034 
Central  Library  (5641) 
Aerodynamics  Lab.  (5643) 

Commander 

Naval  Weapons  Center 
China  Lake,  California  93555 
Technical  Library  (533) 

Code  406 

R.  E.  Meeker  (4063) 

W.  Thlelbahr 


r 


NSWC/WOL/TR  77-28 
DISTRIBUTIOK 


Copies 


Director 

U.S.  Naval  Research  Laboratory 
Washington,  D.C.  20390 
Library 
Code  6503 

ICASE,  NASA  Langley 
MS  132C 

Hampton,  Virginia  23665 
Dr.  James  Ortega 

NASA 

Langley  Research  Center 
Langley  Station 
Hampton,  Virginia  23665 
MS/185  Technical  Library 
Aero  & Space  Mech  Dlv. 

Dennis  Bushnell 
Ivan  Beckwith 
R.  Trlmpl 
Julius  Harris 

NASA 

Lewis  Research  Center 
21000  Brookpart  Road 
Cleveland,  Ohio  441 J5 
Library  60-3 

Chief,  Wind  Tunnel  & Flight  Dlv. 

NASA 

George  C.  Marshall  Space  Flight  Center 
Huntsville,  Alabama  35812 
Mr.  T.  Reed,  R-AERO-AU 
Mr.  W.  K.  Dahm,  BB31 

NASA 

600  Independence  Avenue,  S.  W. 
Washington,  D.  C.  20546 
F.  C.  Schwenk,  Director, 

Research  (Code  RR) 

NASA 

P.O.  Box  33 

College  Park,  Maryland  20740 


2 


NSWC/WOL/TR  77-28 


r' 


DISTRIBUTION 

Copies 


Director 

Defense  Research  and  Engineering  (DDR&E) 
Room  3E-1063,  The  Pentagon,  Stop  103 
Washington,  D.C.  20301 
Technical  Library 

Defense  Documentation  Center 
Cameron  Station 
Alexandria,  Virginia  22314 

Commander  (5632.2) 

Naval  Missile  Center 
Point  Mugu,  California  93041 
Technical  Library 

Commanding  Officer 
USA  Aberdeen  Research  and 
Development  Center 
Aberdeen  Proving  Ground 
Maryland  21005 
STEAP-TL 
AMXRD-XSE 

Director 

Strategic  Systems  Project  Office 
Department  of  the  Navy 
Washington,  D.C.  20390 
NSP-2722 

Director  of  Intelligence 
Headquarters,  USAF  (AFNINDE) 

Washington,  D.C.  20330 
AF0IN-3B 

Los  Angeles  Air  Force  Station 
SAMSO/DYAE 
P.O.  Box  92960 
Worldway  Postal  Center 
Los  Angeles,  California  90009 
Code  RSSE 
Code  RSSM 
LT  D.  Hall,  RSSM 


3 


NSWC/WDL/TR  77-28 
DISTRIBUTION 


Copies 


Headquarters,  Arnold  Engineering 
Development  Center 
Arnold  Air  Force  Station 
Tennessee  37389 
L lb  rar y /Documen  t s 
R.  W.  Henzel,  TD 
CAPT  C.  Tirres/DYR 
CAPT  K.  Kushman 

von  Karman  Gas  Dynamics  Facility 
ARO , Inc . 

Arnold  Air  Force  Station 
Tennessee  37389 

Dr.  J.  D.  Whitfield 
Dr.  J.  Adams 

Comm2indlng  Officer 
Harry  Diamond  Laboratories 
Washington,  D.C.  20438 
Library 

Commanding  General 
U.S.  Army  Missile  Command 
Redstone  Arsenal 
Alabama  35809 
AMSMI-RR 

Chief,  Document  Section 
AMSMI-RDK,  R.  A.  Deep 
AMSMI-RDK,  T.  R.  Street 

Department  of  the  Army 
Office  of  the  Chief  of 
Research  and  Development 
ABMDA,  The  Pentagon 
Washington,  D.C.  20350 

Commanding  Officer 
Picatlnny  Arsenal 
Dover,  New  Jersey  07801 
SMUPA-VC-3  (A.  A.  Loeb) 

Commander  (ADL) 

Naval  Air  Development  Center 
Johnsvllle,  Pennsylvania  18974 
Dr.  R.  K.  Lobb 


4 


NSWC/WOL/TR  77-28 


DISTRIBUTION 

Copies 

Air  Force  Weapons  Laboratory 
Kirtland  Air  Force  Base 
Albuquerque,  New  Mexico  87117 
CAPT  Tolman/SAS 
Tech.  Library  (SUL) 

U.S.  Army  Ballistic  Missile 
Defense  Agency 
1300  Wilson  Boulevard 
Arlington,  Virginia  22209 

The  Johns  Hopkins  University 
(C/NOw  7386) 

Applied  Physics  Laboratory 
Johns  Hopkins  Road 
Laurel,  Maryland  20810 
Document  Library 
Dr.  F.  Hill 
Dr.  L.  L.  Cronvlch 
Dr.  J.  C.  W.  Rogers 

Director,  Defense  Nuclear  Agency 
Headquarters,  DASA 
Washington,  D.C.  20305 
STSP  (SPAS) 

Commanding  Officer 
Naval  Intelligence  Support  Center 
4301  Sultland  Road 
Washington,  D.C.  20390 

Department  of  Aeronautics 
DFAN 

USAF,  Academy 
Colorado  80840 
COL  D.  H.  Daley 
CAPT  J.  Williams 
Library 

Armament  Development  and  Test  Center 
Eglin  AFB,  Florida  32542 
Technical  Library,  DLOSL 

Commander 

U.S.  Army  Natick  Development  Center 
AMSNM-UBS 

Natick,  Massachusetts  01760 
AMXNM-UBS 
G.  A.  Barnard 


NSWC/WOL/TR  77-28 


DISTRIBUTION 


Copies 


NASA  Ames  Research  Center 
Moffett  Field,  California  94035 
Dr.  M.  Horstman 
P.  Kutler 
J . Raklch 
R.  MacCormack 
Library 

AFFDL 

Wright  Patterson  Air  Force  Base 
Ohio  45433 

Mr.  Melvin  Buck 
D.  J.  Harney 
W.  Hankey 

J . Shang 

K.  Stetson 
Art  Lewis 

Wright  Aeronautical  Laboratories 
Wrlght-Patterson  Air  Force  Base 
Dayton,  Ohio  45433 
Technical  Library 

Air  Force  Materials  Laboratory 
Wright  Patterson  Air  Force  Base 
Dayton,  Ohio  45433 
Dr.  William  Kessler 

Naval  Research  Laboratory 
Washington,  D.C. 

Dr.  J.  Boris 

ONR  Branch  Office/Pasadena 
1030  East  Green  Street 
Pasadena,  California  91101 
Dr.  Richard  Lau 

Aerospace  Engineering  Program 
University  of  Alabama 
P.O.  Box  6307 

University  of  Alabama  35486 
Prof.  W.  K.  Rey,  Chm. 

AME  Department 
University  of  Arizona 
Tucson,  Arizona  85721 
Dr.  L.  B.  Scott 


6 


NSWC/WOL/TR  77-28 


distribution 


Copies 


Polytechnic  Institute  of  New  York 
Graduate  Center  Library 
Route  110,  Farmlngdale 
Long  Island,  New  York  11735 
Dr.  R.  Crescl 
Prof.  Glno  Morettl 

Polytechnic  Institute  of  New  York 
Spicer  Library 
333  Jay  Street 
Brooklyn,  New  York  11201 
Reference  Dept. 

California  Institute  of  Technology 
Graduate  Aeronautical  Laboratories  Aero. 
Pasadena,  California  91109 
Librarian 
Dr.  A.  Roshko 
Prof.  H.  B.  Keller, 

Dept,  of  Mathematics 

University  of  California 
Dept,  of  Mechanical  Engineering 
Berkeley,  CA  94720 
Prof.  R.  Grclf 

GASDYNAMICS 

University  of  California 
Richmond  Field  Station 
1301  South  46th  Street 
Richmond,  California  94804 
A.  K.  Oppenheim 

Dept,  of  Aerospace  Engineering 
University  of  Southern  California 
University  Park 
Los  Angeles,  California  90007 
Dr.  John  Laufer 

University  of  California,  San  Diego 
Department  of  Aerospace  and 

Mechanical  Engineering  Sciences 
LaJolla,  California  92037 
Dr.  P.  A.  Libby 


' \ r.  ..  » . • • 


NSWC/WOL/TR  77-28 


DISTRIBUTION 


Copies 


i 


I 


it 


f • 


Case  Western  Reserve  University 
Division  of  Fluid,  Thermal  and 
Aerospace  Engineering 
Cleveland,  Ohio  A4106 
Dr.  Eli  Reshotko 

The  Catholic  University 
Washington,  D.C.  20017 
Dr.  C.  C.  Chang 

University  of  Cincinnati 
Cincinnati,  Ohio  45221 

Department  of  Aerospace  Engineering 
Dr.  Arnold  Polak 
Dr.  Michael  Werle 

Department  of  Aerospace  Engineering 
Sciences 

University  of  Colorado 
Boulder,  Colorado  80302 

Cornell  University 

Graduate  School  of  Aero.  Engineering 
Ithaca,  New  York  14850 
Prof.  A.  R.  George 

University  of  Delaware 
Mechanical  and  Aeronautical 
Engineering  Dept. 

Newark,  Delaware  19711 
Dr.  James  E.  Danberg 

Georgia  Institute  of  Technology 
225  North  Avenue,  N.  W. 

Atlanta,  Georgia  30332 
Dr.  Arnold  L.  Ducoffe 

Technical  Reports  Collection 
Gordon  McKay  Library 
Harvard  University 

Dlv.  of  Engineering  and  Applied  Physics 
Pierce  Hall,  Oxford  Street 
Cambridge,  Massachusetts  02138 
Dr.  George  Carrier 


8 


r 


• • "r 


NSWC/WOL/TR  77-28 


DISTRIBUTION 


Copies 


Illinois  Institute  of  Technology 
3300  South  Federal 
Chicago,  Illinois  60616 
Dr.  M.  V.  Morkovin 

University  of  Illinois 
101  Transportation  Bldg. 

Urbana,  Illinois  61801 

Aeronautical  and  Astronautlcal 
Engineering  Dept. 

Iowa  State  University 
Ames,  Iowa  50010 

Aerospace  Engineering  Dept. 

The  Johns  Hopkins  University 
Baltimore,  Maryland  21218 
Prof.  S.  Corrsin 

University  of  Kentucky 
Wenner-Gren  Aero . Lab . 

Lexington,  Kentucky  40506 
C.  F.  Knapp 

Department  of  Aero.  Engineering,  ME  106 
Louisiana  State  University 
Baton  Rouge,  Louisiana  70803 
Dr.  P.  H.  Miller 

University  of  Maryland 
College  Park,  Maryland  20740 
Dr.  S.  I.  Pai,  Institute  for 
Fluid  Dynamics  and 
Applied  Mathematics 
Dr.  John  D.  Anderson,  Jr. 

Dept,  of  Aerospace  Engineering 

Michigan  State  University 
East  Lansing,  Michigan  48823 
Library  Documents  Dept. 

Massachusetts  Institute  of  Technology 
Cambridge,  Massachusetts  02139 
Prof.  A.  H.  Shapiro,  Head 
Mech.  Engr.  Dept. 

Aero.  Engineering  Library 
Prof.  R.  F.  Probesteln 
Dr.  E.  E.  Covert 

Aerophysics  Laboratory 


9 


NSWC/WOL/TR  77-28 


DISTRIBUTION 


Copies 


University  of  Michigan 
Ann  Arbor,  Michigan  48104 

Dr.  M.  Sichel,  Dept,  of  Aero.  Engr. 
Engineering  Library 
Aerospace  Engineering  Library 
Mr.  C.  Couslneau,  Engln-Trans  Lib. 

Serials  and  Documents  Section 
General  Library 
University  of  Michigan 
Ann  Arbor,  Michigan  48104 

Mississippi  State  Univ. 

Dept,  of  Aerophyslcs  and 
Aerospace  Engineering 
P . 0 . Drawer  A 

State  College,  Mississippi  39762 
Mr.  Charles  B.  Cliett 

U.S.  Naval  Academy 
Annapolis,  Maryland  21402 

Engineering  Dept. , Aerospace  Dlv. 

Library,  Code  2124 
U.S.  Naval  Postgraduate  School 
Monterey,  California  93940 
Technical  Reports  Section 
Prof.  Carroll  Wilde,  Ch.  Mathematics  Dept. 

North  Carolina  State  College 
Raleigh,  North  Carolina  27607 
Dr.  F.  R.  DeJarnette 

D.  H.  Hill  Library 
North  Carolina  State  Univ. 

P.O.  Box  5007 

Raleigh,  North  Carolina  27607 

University  of  North  Carolina 

Cahpel  Hill 

North  Carolina  27514 

Dept,  of  Aero.  Engineering 

Northwestern  University 
Technological  Institute 
Evanston,  Illinois  60201 
Dept,  of  Mech.  Engineering 
Library 


10 


T 


NSWC/WOL/TR  77-28 
DISTRIBUTION 


Copies 


Dept,  of  Aero-Astro  Engineering 
Ohio  State  University 
2036  Neil  Avenue 
Columbus,  Ohio  43210 
Engineering  Library 

The  Pennsylvania  State  Univ. 

University  Park,  Pennsylvania  18602 
Dept,  of  Aero.  Engr. 

Hammond  Bldg. 

Library,  Documents  Section 

Bevier  Engr.  Library 
126  Benedum  Hall 
University  of  Pittsburgh 
Pittsburgh,  Pennsylvania  15261 

Princeton  University 
Aerospace  & Mech.  Science  Dept. 

D-214  Engr.  Quadrangel 
Princeton,  New  Jersey  08540 
Dr.  I.  E.  Vas 
Dr.  W.  D.  Hayes 

Purdue  University 
School  of  Aeronautical  and 
Engineering  Sciences 
Lafayette,  Indiana  47907 
Dr.  B.  Reese,  Head,  Dept,  of 
Aero,  and  Astro. 

Dr.  C.  P.  Kentzer 

Rensselaer  Polytechnic  Institute 
Troy,  New  York  12181 
Dept,  of  Aeronautical 

Engineering  and  Astronautics 

Department  of  Mechanical 

Industrial  and  Aerospace  Engr. 

Rutgers  - The  State  University 
New  Brunswick,  New  Jersey  08903 
Dr.  R.  H.  Page 

Stanford  University 
Stanford,  CA  94305 

Librarian,  Dept,  of  Aeronautics 
and  Astronautics 

Prof.  J.  Ollger,  Dept,  of  Computer  Sciences 


11 


NSWC/WOL/TR  77-28 


DISTRIBUTION 


Copies 


Stevens  Institute  of  Technology 
Hoboken,  New  Jersey  07030 
Mechanical  Engineering  Dept. 

Library 

The  University  of  Texas  at  Austin 
Applied  Research  Laboratories 
P.0,  Box  8029 

Austin,  Texas  78712  ^ 

Director 

Engr.  S.B.114B/Dr.  Friedrich 

University  of  Toledo 
2801  W.  Bancroft 
Toledo,  Ohio  A3606 

Dept,  of  Aero  Engineering 

University  of  Virginia 

School  of  Engineering  and  Applied  Science 
Charlottesville,  Virginia  22091 
Dr.  I.  D.  Jacobson 

University  of  Washington 
Seattle,  Washington  98105 
Engineering  Library 

Dept,  of  Aeronautics  and  Astronautics 

West  Virginia  University 
Morgantown 
West  Virginia  26506 
Library 

Federal  Reports  Center 
University  of  Wisconsin 
Mechanical  Engineering  Building 
Madison,  Wisconsin  53706 
S.  Reilly 

Los  Alamos  Scientific  Laboratory 
P.O.  Box  1663 

Los  Alamos,  New  Mexico  8754A 
Reports  Library 

Institute  for  Defense  Analyses 
AOO  Army-Navy  Drive 
Arlington,  Virginia  22202 
Classified  Library 


12 


NSWC/WOL/TR  77-28 


DISTRIBUTION 


Copies 


Kaman  Sciences  Corporation 
P.O.  Box  7463 

Colorado  Springs,  Colorado  80933 
Library 

Mr.  F.  Barbera 
Mr.  D.  Foxwell 

Kaman  Sciences  Corporation 
Avldyne  Division 
83  Second  Avenue 

Burlington,  Massachusetts  01803 
Dr.  J.  R.  Ruetenlk 

Rockwell  International 
B-1  Division 

Technical  Information  Center 
(BA08)  International  Airport 
Los  Angeles,  California  90009 

Rockwell  International  Corporation 
Technical  Information  Center 
4300  E.  Fifth  Avenue 
Columbus,  Ohio  43216 

M.I.T.  Lincoln  Laboratory 
P.O.  Box  73 

Lexington,  Massachusetts  02173 
Library  A-082 

Dr.  A.  B.  Wardlaw  5 

The  RAND  Corporation 
1700  Main  Street 
Santa  Monica,  California  90406 
Library  - D 

Aerojet  Electrosystems  Co. 

1100  W.  Hollyvale  Avenue 
Azusa,  California  91702 
Engineering  Library 

The  Boeing  Company 
P.O.  Box  3999 

Seattle,  Washington  98124 
87-67 

United  Aircraft 
Research  Laboratories 
East  Hartford 
Connecticut  06108 
Dr.  William  M.  Foley 


13 


NSWC/WOL/TR  77-28 


DISTRIBUTION 


Copies 


United  Aircraft  Corporation 
400  Main  Street 

East  Hartford,  Connecticut  06108 
Library 

Hughes  Aircraft  Company 
Centlnela  at  Teale 
Culver  City,  California  90230 
Company  Tech.  Doc.  Center 
6/Ell,  B.W.  Campbell 

Lockheed  Missiles  and  Space  Co. 
P.O.  Box  504 

Sunnyvale,  California  94086 
G.  T.  Chrusclel 
R.  Nelson 
P.  D.  Thomas 
Charles  Lee 

Lockheed  Missiles  and  Space  Co. 
3251  Hanover  Street 
Palo  Alto,  California  94304 
Technical  Information  Center 

Lockheed-Callfornla  Co. 

Burbank,  California  91503 
Central  Library  Dept. 

Vice  President  and  Chief  Scientist 
Dept.  03-10 

Lockheed  Aircraft  Corp. 

P.O.  Box  551 

Burbank,  California  91503 

Martin  Marietta  Corporation 
P.O.  Box  988 

Baltimore,  Maryland  21203 
Science-Technology  Library 
(Mail  No.  398) 

Martin  Company 
3211  Trade  Winds  Trail 
Orlando,  Florida  32805 
Mr.  H.  J.  Dlebolt 

General  Dynamics 
P.O.  Box  748 
Fort  Worth,  Texas  76101 
Research  Library  2246 
George  Kaler,  Mall  Zone  2880 


14 


l&itLiiaiii 


NSWC/WOL/TR  77-28 


DISTRIBUTION 


Copies 


Calspan  Corporation 
4455  Genesee  Street 
Buffalo,  New  York  14221 
Library 

Air  Force  Unlv.  Library 
(SE)  63-578 

Maxwell  Air  Force  Base 
Alabama  36112 

McDonnell . Company 
P.O.  Box  516 

St.  Louis,  Missouri  63166 
R.  D.  Detrlch,  Dept.  209 
Bldg.  33 

McDonnell  Douglas  Astronautics 
Company  - West 
5301  Bolsa  Avenue 

Huntington  Beach,  California  92647 
368,  B4A0 
J.  S.  Murphy,  A3 
J.  Copper 
J.  Xerikos 
W.  Shaw 

Fairchild  Hiller 
Republic  Aviation  Division 
Farmlngdale,  New  York  11735 
Engineering  Library 

General  Applied  Science  Labs.  Inc. 
Merrick  and  Stewart  Avenues 
Westbury,  Long  Island 
New  York  11590 
Dr . F . Lane 
L.  M.  Nucci 

General  Electric  Company 
R&O  Lab.  (Comb.  Bldg.) 

Schenectady,  New  York  12301 
Dr.  H.  T.  Nagamatsu 


15 


NSWC/WOL/TR  77-28 


DISTRIBUTION 


Copies 


The  Whitney  Library 
General  Electric  Research  and 
Development  Center 
The  Knolls,  K-1 
P.O.  Box  8 

Schenectady,  New  York  12301 
M.  F.  Orr,  Manager 

General  Electric  Company 
Missile  and  Space  Division 
P.O.  Box  8555 

Philadelphia,  Pennsylvania  19101 
MSD  Library 
Dr.  J.  D.  Stewart 

General  Electric  Company 
AEG  Technical  Information 
Center,  N-32 
Cincinnati,  Ohio  45215 

General  Electric  Company 
Reentry  & Environmental  Systems 
Division 

3198  Chestnut  Street 
Philadelphia,  Pennsylvania  19101 
W.  Daskln 
R.  Neff 
C.  Kyriss 
A.  Martelluccl 

AVCO- Everett  Research  Lab. 

2385  Revere  Beach  Parkway 
Everett,  Massachusetts  02149 
Library 

Dr.  George  Sutton 

LTV  Aerospace  Corporation 
Vought  Aeronautics  Division 
P.O.  Box  5907 
Dallas,  Texas  75222 
Unit  2-51131  (Library) 

LTV  Aerospace  Corporation 
Missiles  and  Space  Division 
P.O.  Box  6267 
Dallas,  Texas  75222 
MSD-T-Llbrary 


16 


NSWC/WOL/TR  77-28 


DISTRIBUTION 


Copies 


Northrop  Norair 
3901  West  Broadway 
Hawthorne,  California  90250 
Tech.  Info.  3360-32 

Government  Documents 
The  Foundren  Library 
Rice  Institute 
P.O.  Box  1892 
Houston,  Texas  77001 

Grumman  Aircraft  Engineering  Corporation 
Bethpage,  Long  Island 
New  York  11714 
Dr.  R.  E.  Melnik 

Marquardt  Aircraft  Corp. 

16555  Saticoy  Street 
Van  Nuys,  California  91409 
Library 

ARDE  Associates 
P.O.  Box  286 
580  Winters  Avenue 
Paramus,  New  Jersey  07652 
Librarian 

Aerophyslcs  Company 

3500  Connecticut  Ave. , N.  W. 

Washington,  D.C.  20003 
Mr.  G.  D.  Boehler 

Aeronautical  Research  Associates 
of  Princeton 
50  Washington  Road 
Princeton,  New  Jersey  08540 
Dr.  C.  duP.  Donaldson 

General  Research  Corporation 
5383  Hollister  Avenue 
P.O.  Box  3587 

Santa  Barbara,  California  93105 
Technical  Information  Office 


NSWC/WOL/TR  77-28 


distribution 


Copies 


Sandla  Laboratories 
Box  5800 

Albuquerque,  New  Mexico  87115 
Dr.  C.  Peterson 
Dr.  G.  W.  Stone 
Dr.  K.  Touryan 
Dr.  R.  Eaton 
Kurt  Putz,  Div.  1333 

Hercules  Incorporated 
Allegany  Ballistics  Lab. 

P.O.  Box  210 

Cumberland,  Maryland  21502 
Library 

General  Electric  Company 
P.O.  Box  2500 

Daytona  Beach,  Florida  32015 
Dave  Hovls,  Room  4109 

TRW  Systems  Group 
1 Space  Park 

Redondo  Beach,  California  90278 
Tech.  Library /Doc.  Acquisitions 

Stanford  Research  Institute 
333  Ravenswood  Avenue 
Menlo  Park,  California  94025 
Dr . G . Abrahamson 

Hughes  Aircraft  Company 
P.O.  Box  3310 

Fullerton,  California  92634 
Tech.  Library,  600-C222 

Westlnghouse  Electric  Corp. 
Astronuclear  Laboratory 
P.O.  Box  10864 

Pittsburgh,  Pennsylvania  15236 
Library 

University  of  Tennessee 
Space  Institute 
Tullahoma,  Tennessee  37388 
Prof.  J.  M.  Wu 

CONVAIR  Division  of  General  Dynamics 

Library  and  Information 

P.O.  Box  12009 

San  Diego,  California  92112 


18 


NSWC/WOL/TR  77-28 


DISTRIBUTION 


Copies 


CONVAIR  Division  of  General  D)mainlcs 
P.O.  Box  80986 
San  Diego,  California  92138 
Dr.  J.  Raat,  Zone  640-02 
Research  Library 

AVCO  Missiles  Systems  Division 
201  Lowell  Street 
Wilmington,  Massachusetts  01887 
E.  E.  H.  Schurmann 
N.  Tyson 
H.  Rosenbaum 

Chrysler  Corporation 
Space  Division 
P.O.  Box  29200 
New  Orleans,  LA  70129 
N.  D.  Kemp  2910 
E.  A.  Rawls,  Dept.  2920 

General  Dynamics 
Pomona  Division 
P.O.  Box  2507 
Pomona,  California  91766 
Tech.  Doc.  Center  (6-20) 

Phllco-Ford  Corporation 
Aeroneutronlc  Division 
Newport  Beach,  California  92660 
Dr.  A.  Demetrlades 

Raytheon  Company 
Missile  Systems  Division 
Hartwell  Road 
Bedford,  Maine  01730 
D.  P.  Forsmo 

TRW  Systems  Group 
Space  Park  Drive 
Houston,  Texas  77058 
M.  W.  Sweeney,  Jr. 

Marine  Blosclence  Laboratory 
513  Sydnor  Street 
Ridgecrest,  California  93555 
Dr.  A.  C.  Charters 


19 


NSWC/WOL/TR  77-28 


DISTRIBUTION 

Copies 

University  of  California  - 
Los  Angeles 

Dept,  of  Mechanics  & Structures 
Los  Angeles,  California  90024 
Prof.  J.  D.  Cole 

University  of  Wyoming 
University  Station 
P.O.  Box  3295 
Laramie,  Wyoming  82070 
Head,  Dept.  Mech.  Eng. 

li 

Applied  Mechanics  Review  j; 

Southwest  Research  Institute 

8500  Culebra  Road 

San  Antonio,  Texas  78228 

American  Institute  of  Aeronautics 
and  Astronautics 
New  York,  New  York  10019 
J . Newbauer 

Technical  Information  Services 
AIAA 

750  Third  Avenue 
New  York,  New  York  10017 
Miss  P.  Marshall 

Faculty  of  Aeronautical  Systems 
Unlv.  of  West  Florida 
Pensacola,  Florida  32504 
Dr.  R.  Fledderman 

Space  Research  Corporation 
Chittenden  Bank  Building 
North  Troy,  Vermont  05859 
Library 
J.  A.  Flnkel 

The  Aerospace  Corporation 
P.O.  Box  92957 
Los  Angeles,  CA  90009 
E.  Ndefo 
J.  M.  Lyons 


NSWC/WOL/TR  77-28 


1 

j 

distribution  1 


Copies 

Notre  Dame  University  i 

Notre  Dame,  Indiana  46556  , 

Dept,  of  Aero.  Engineering  j 

College  of  Engineering  1 

Library 

Acurex  Corp.  Aerotherm 
485  Clyde  Avenue 
Mt.  View,  California  94042 
M.  Abbett 

Prototype  Development  Assoc. 

1740  Garry  Avenue 
Suite  201 

Santa  Ana,  California  92705 
Mr . J . Dunn 

Courant  Institute 
New  York  University 
251  Mercer  Street 

New  York,  New  York  10012  i 

Prof.  Peter  Lax 
Prof.  Heinz  0.  Krelss 
Prof.  E.  Isaacson 
Dr.  Eli  Turkel 
Dr.  Amiram  Harten 

Mathematics  Research  Center 
U.S.  Army 

University  of  Wisconsin 
Madison,  Wisconsin  53706 
Prof.  Seymour  V.  Parter 

TRW 

One  Space  Park 

Redondo  Beach,  California  92078 

B.  Pearce  ^ 

Aerodynamics  Dept. 

Garth  W.  Llppmann,  Bldg.  R-5,  Rm.  2230 

Lockheed  Missiles  & Space  Co. 

Continental  Bldg.,  Suite  445 
El  Segundo,  California  90245 
R.  Fortune 


21 


NSWC/WOL/TR  77-28 


DISTRIBUTION 


Copies 


Department  of  Mathematics 
Pj^iversity  of  California  at  Berkelay 
Berkeley,  California  94720 
Prof.  A.  Chorin 

Science  Applications  Inc. 

101  Continental  Bldg. 

El  Segundo  Blvd. 

El  Segundo,  California  90245 
L.  Cassel 

University  of  Tennessee 
Department  of  Mathematics 
Knoxville,  Tennessee  37916 
Prof.  Max  Gunzburger 


22 


